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FROM ATARI 


BUMPAS REVIEWS 


FIELD OF FIRE (Avalon Hill, $30) is a one-player tactical game 
simulating eight small-unit infantry combat scenarios from WW2. 
Those of you familiar with Broderbund's Operation Whirlwind will 
notice some similarities in this game. Roger Damon designed them 
both, and Field of Fire is a further development and improvement on 
Operation Whirlwind. 

Each game lasts an hour or two, and all player input is with the 
joystick. You give orders to your units in separate Fire, Movement and 
Assault phases. Operations occur during a "real-time" phase in which 
you must keep close track of the action in the battle. At any time, you 
may press the Select key to re-target your units' fire, or the Option key 
to order an assault. 

The units are fire-teams of 1-6 men, or individual tanks. There are 
Headquarters, Rifle teams, Machine Gun crews, Bazooka/Panzerfaust 
teams, Mortar crews, Forward Observors, Engineers and Anti-Tank 
Guns. Each unit is identified by the name of its leader. The documen- 
tation describes each of these men. You might consider the informa- 
tion when giving each of them tasks to accomplish. The program pro- 
vides an Editor to allow you to change the names of any of the 32 
characters in the game. 

There are 10 terrain types in the game, including roads, trees, 
ridges, hilltops, woods, buildings, streams and rivers, mountains and 
hedgerows. Terrain and distances may block the line of sight to a 
target. The map scrolls smoothly across 5 screens. Status messages 
appear at the top and bottom of the screen. 

The 8 scenarios include a Night Patrol in Tunisia; Forever Road in 
Sicily; Omaha beach D-Day landing; Night of St. Anne to close a 
pocket on some Germans; Up From the Beach, breaking out of the 
beachhead; For Aachen, block-by-block clearing of a city; Ardennes 
Dawn, the last-ditch German counter-offensive; and Roeher Crossing, 
one of the last obstacles before the Rhine. 

The last 8 pages of the 25-page manual is a detailed description of 
the actual “Night of St. Anne" written by the commander of L Com- 
pany of the 3rd Battalion, 26th Infantry, 1st Division. 

For players of wargames, this program is an excellent value for the 
money. The color, graphics and sound are appropriate and well- 
executed. It is really 8 games in one, as each scenario is complete in 
itself. The program offers the option of a "Campaign Game” in which 
you play each of the scenarios in order. Player performance is graded 
at 5 levels from Questionable to Strategic. 


CONAN (Datasoft) is an action-adventure game for one player. It isa 
game in the “Famous Faces” series (Bruce Lee was an earlier item). 
All player input is by joystick. The game may even be re-run at the end 
by pussing the joystick trigger. 

You are Conan, with 2 lives in reserve and 10 swords. “Your goal is 
to find and destroy the villainous Volta." The 7 levels contain foes to 
fight or avoid, and dangers to overcome. Some of the levels contain 
magical solutions which, nevertheless, can be figured out with obser- 
vation and logic. The game is real-time, but there are no penalties for 
taking your time. And each level has "safe" areas in which you can 
rest to observe the screen carefully. 

You may find keys and gems to help you along, but you may carry 
only one at a time. A large bird is an ally who will give you an extra life 
when you touch it. 

The graphics are very well drawn, and in great detail. The colors and 
sound are appropriate. If you tire of the theme music, it can be toggled 
off. These 7 levels are not easy. They get progressively more difficult. 
l've only made it onto level 4 so far. 


DungeonWare (Technimetrics Computing Services, Dept The 
DungeonLair, S78 W22750 Terrace Drive, Big Bend, WI 53103) is a 
"freeware" service to Atari users who are also adventure gamers. They 
are writing shareable software and encourage you to distribute un- 
modified copies. 

They also publish a newsletter, "DungeonLore", for $8 per year. You 
also receive one or two disks for the subscription price. 

DungeonWare ft is a Dungeons and Dragons character generator. 
#2 is an adventure game with sound and graphics called “Cavern of 
the Kings". 

I — Jim Bumpas, co-editor 


THE NEW ATARIS 


Atari has 4 new 8-bit computers and 2 new 16-bit computers which 
will put the PC market on its ear! The 8-bit machines are now called 
the "XE" line, and all are compatible with the XL software and 
peripherals out there. The 65XE is equivalent to the 800XL in a new 
case and without the parallel bus. The 65XEM is the same machine 
with a MIDI interface. The 65XEP is a portable with built in floppy drive 
and 5" monochrome monitor. The 130XE is an 8-bit machine with 131k 
RAM! The prices on these machines range from $99 to $199! 

The 16-bit machines have the Motorola 68000 cpu, the GEM 
operating system, and a MIDI interface. You have your choice of 
BASIC or LOGO as a built in language. They have 4 video ports: TV, 
composite video, RGB, and monochrome. They have a floppy disk 
controller and a hard disk interface. Direct memory access is 1.33 
Megabytes per second. They have 3-voice sound with frequency range 
from 30Hz to above audible range. 

The keyboard has its own microprocessor with one touch cursor 
control and 18-key numeric keypad. 

The ports include a Centronics parallel, RS232C, hard disk, floppy 
disk, 2 joystick ports (one configured for a 2-button mouse). 

The graphics power includes an individually addressable 32k bit- 
mapped screen, 3 graphics modes with 512 colors. The highest 
resolution is 640x400 pixels! 

The 130ST has 131k RAM and costs $399; the 520ST has 524k RAM 
and costs $599. Both come with 196k ROM, expandable to 327k with 
plug-in cartridges. Talk about the best of a Mindset and a Mac combin- 
ed! And for % the price! I just hope the production can keep up with 
demand. This machine will rule 1985 if it is produced in sufficient 


quantities. 
— Jim Bumpas, co-editor 





VP's RAMBLINGS 


With the new year upon us and Atari telling us about all the good 
things coming our way everything looks good in computerland. | hate 
to say this but | have found one bug in the ointment, and this is in- 
structions from software houses professing to tell you how 
something works, or how to do it. There you are, high and dry not 
knowing how to do something with instructions that don't work. The 
next thing you do is call the store where you bought it and they say 
they aren't sure you can do what you want to do and the software 
doesn't support that type of operation. Now you call around to your 
friends and find out if they know how to do what you want. Nine times 
out of ten they don't either. What now, a letter to the maker and you 
hope he answers or even knows what you are talking about. Sound 
familiar? 

Well if this has happened to you I think | have one answer to this 
problem. The next time this happens you write to the software firm 
who made the program and tell them of the problems you encounterd. 
If they are of no help send me a copy of your letter and their reply we 
will keep them on file and if we get enough letters we will publish 
your complaints in the newsletter. Also tell the software firm that you 
will hesitate to buy their product in the future if they don't correct this 
type of problem and make their programs usable without having to 
resort to all kinds of extra help from them or others. 

If all of us get together we can put pressure on the software houses 
to produce the type of programs we want and can use with the least 
amount of trouble. 

Elsewhere in this issure is the first of the BUGBUSTERS. If you 
want to be a part of this group and know one form of computing real 
well let us know and we will put your name, address, phone no., and 
specialty on our list so people in your area can contact you for help. 

If you have any further ideas on these subjects please let me know. 
My address is on the back of this newsletter. 

— Larry Gold 
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DIF CONVERSION 


SYNFILE + is the latest in filemanagement programs and in my opi- 
nion is the best. In the 3 years | have owned my ATARI, | have spent 
most of my time writing programs for data files. | am very familiar with 
ATARI's capabilities and limitations. SYNFILE + makes use of all of 
ATARI’s attributes, including expanded memory. 

| wrote a disk catalog program because the best filemanagement 
program was only able to search on the one main index field. The disk 
catalog program could search on three. | later modified the disk 
catalog program to be a VHS movie file in which 1250 records, the pro- 
gram, and the index, all resided on one disk. 

SYNFILE +, although the program is on a seperate disk, has the 
ability to search on sixteen fields and the size of your file is only 
limited by memory for the index. It can search across disks. 

Good-bye disk catalog, hello SYNFILE+. | decided ! wanted my 
files in SYNFILE +. But | first had to convert my files to DIF (Data In- 
terchange FILE) files, so | wrote a program to do so. 

DIF files were originally set up by the people who wrote Visicalc in 
order to have a universal file structure to be used to transfer files bet- 
ween programs or between computers. Because of this structure 
(which | think was done a little backwards), it takes a long time to pro- 
cess data files. The DIF file is set up with rows and columns and the 
information is stored by column. All the information in the first col- 
umn is written first, then the second column, and so on. When a data 
file is being converted, this means the information is written by field. 
The data file has to be read from beginning to end once for each field. 
If you have 16 fields, the file has to be read sixteen times. This is just 
to convert to DIF. 

Then the file has to be loaded into SYNFILE+. | did 72 records 
which took 45 minutes. The DIF file winds up being much larger than 
the source file. If you have a full Filemanager data disk, the converted 
DIF file might not fit on one disk. For each field in your data file, there 
are at least 8 characters added to the DIF file plus some additional in- 
formation to separate the fields. 

One way around this is to create subfiles with Filemanager and do 
each subfile separately. In the conversion program | have included a 
function to break down large files into two smaller files. In addition, 
when SYNFILE+ converts the DIF file to its own format, it has a 
minimum field length of 16 characters. This means if your data file 
has a field with 2 charaters, when SYNFILE+ converts it, it will con- 
tain 16 characters. This can be modified back to 2 characters with 
Modify Form and Merge functions in the Synfile+ program. The only 
thing | find | didn't like about SYNFILE + is the fact it doesn't give you 
any idea what is going on when it is converting DIF files. It could take 
an hour, or it could take 6 hours. You never know until it is done. 

This BASIC program will automatically convert Filemanager files to 
DIF files and will also convert other DOS type files if you know the 
structure (number of fields, lengths, whether they are strings or 
numeric, and the number of records in the file). If you are converting a 
Filemanager file, simply insert the data disk and the program will give 
you a list of the files on the disk. You then select which file you want 
to convert. 

The program will show you a list of the field names to make sure 
you have selected the right files. You will then be asked how many 
records you want to copy. This allows you to create 2 smaller DIF files 
from a very large data file. If you enter the same number as the total 
records, the conversion will only create one file. If you enter a number 
less than the number of records in the file, the coverion will create 
one file with the number of records you entered and another file with 
the rest of the records. rn 

Next you will be asked for the name of the output file. After all 
these entries have been made, the program will proceed to write the 
DIF file, displaying the field and record numbers as it goes along. 

At the beginning of the program you will be asked if you want to 
convert a Filemanager file or other. If you select other, you will be ask- 
ed questions about the fields and file names. Then it will again start to 
create the DIF file. 

After the DIF file has been created, load Synfile, remove the Synfile 
disk, insert the disk with the DIF file on it, and then select the "DIF to 
Syfile" function. You should now see the name you selected for your 
DIF file. Press RETURN and the rest is up to Synfile. This process 
could take quite a while to complete. 

The file the Synfile creates will have field names such as "A", "B", 
“C” etc. Any field which had 16 characters or less will now have 16 
charaters. Another thing you will find is the conversion only differen- 
tiates between character fields and numeric fields. Any fields with 
special features in Filemanager such as computed, repeating, or 
dollars will now simply be text or numeric. This is not a problem 
because you can change them back with Synfile’s "Edit Form’’func- 
tions. 


It is important for you to follow the right sequence when modifying 
the form. The first thing you must do is to change the field names 
back to what they were or what you want them to be: BEFORE chang- 
ing the lengths or types, save the new form. Now you can edit the 
same form again and modify the lengths and types. DO NOT change 
the names of the fields during the second modification. If you do, you 
will loose information. If you want to add or delete a field, you must 
create a new form, using the same names for the fields you want to re- 
tain and using different names for fields you want to add. 

Changing the field lengths or types makes it necessary to Merge 
the file into the new form. This is explained in the Synfile documenta- 
tion. If you have a large file, only index the file on one field and set the 
index length to one character. This reduces the chance of running out 
of memory during the merge. 

Well, | hope you enjoy using Syfile as much as | have, 

— David Fuller 
188 REM SRO 
118 REM * Joystick Driver Demo X 
128 REM * by Jonathan Buckheit # 
1398 REM JHGCOGOCOOGGCOOOOHOHGCOHOUODOE 
148 REM 
158 REM - Joystick Driver - 
168 REM 
i78 JOYSTICK-=ADR CHR EG if is 
EVI FIA VHF 
188 REM 
i38 REM - 5et up 5creen - 
288 REM 


218 GRAPHICS @:POKE 718,8:POKE 752,1:? 


228 REM 

239 REM - Set up Delta Change array - 

248 REM 

258 DIM DELTAC7, 11 :FOR JB-8 TO 7:READ 

DELTAK, DELTAY:DELTA CJB, 83 -DELTAR: DELTA 
(JB, 1)-DELTAY:NENHT JB 

268 PATA 8,-1,1,-1,1,8,1,1,8,1,-1,1,-1 
,8,-1,-1 

278 REM 

280 REM - Put Character onto Screen - 

298 REM 

i88 POSITION KPOS,VYPO5:? "e"; 

318 REM 

i28 REM - Read Joystick - 

338 REM 

i48 JB-HSRCIOYSTICK,83;IF JB-8 THEN 34 
) | 

158 REM 

366 REM - Check Coordinates - 

$78 REM 

i88 DELTAE-HPOSTDELTA(CJB, B) : DELTAY-YPO 
StPELTACJB,13:IF DELTANSL OR BELTAX? 38 
OR DELTAY(i OR DELTAY222 THEM 148 

198 REM 

408 REM - Erase Old Character - 

418 REM - Update Coordinates - 

428 REM 

438 POSITION KP05,YPO5:? ü "i:4POS-DEL 
TAK: YPOQS-DELTAY: GOTO 389 


RALPH WALDEN 


Teaches Assembly Language-#3 

There's an old saying in assembly language programming (true in a 
lot of other languages as well): “You should never write the same 
code twice". With the use of MAC/65 and it's extensive macro 
capability, that's an easy thing to avoid. | have included two macros 
here to assist in adding and subtracting 2-byte integers. The action 
taken by the macro will depend on how many parameters you pass it. | 
will explain how to use the ADD macro; the SUBTRACT macro works 
the same way. 

ADD NUMBER? - will increment the 2-byte integer NUMBER1 by 
one. 

ADD NUMBER1,NUMBER2 - will add the 2-byte integer NUMBER2 
to the 2-byte integer NUMBER1 and store the results in NUMBER. 

ADD NUMBER1,NUMBER2,NUMBERS - will add the 2-byte integer 
NUMBER2 with the 2-byte integer NUMBER! and store the results in 
NUMBERS. 

Note there are no comments included in the macro. Comments 
within macros take up space in the macro library while assembling, 
and reduce the overall available memory. If you are unfamiliar with 
MAC’s macros, here are some tips to help you to understand how the 
macros work: A percent followed by a number refers to the parameter. 
The first parameter is %1, the second is %2, etc. %0 gives you the 
number of parameters. By using the .IF directive, we assemble only 
the section of code we need at time. 


0100 .MACRO ADD 
0110 JF %0=1 

0120 INC %1 

0130 BNE @ADDEND 
0140 INC %1+1 

0150 @ADDEND 


0160 .ENDIF 
0170 JE 9?6011 
0180 CLC 


0190 LDA %1 
0200 ADC %2 
0210 IF %0=2 
0220 STA %1 
0230 LDA %1+1 
0240 ADC %2+1 
0250 STA %1+1 
0260 ELSE 

0270 STA %3 
0280 LDA %1+1 
0290 ADC %2+1 
0300 STA %3+1 


0310 .ENDIF 
0320 .ENDIF 
0330 .ENDM 


0340 .MACRO SUBTRACT 
0350 IF %0=1 

0360 LDA %1 

0370 BNE @SUBEND 
0380 DEC %1+1 

0390 @SUBEND DEC %1 


0400 .ENDIF 
0410 IF %OT1 
0420 SEC 


0430 LDA %1 
0440 SBC %2 
0450 IF %0=2 
0460 STA %1 
0470 LDA %1+1 
0480 SBC %2+1 
0490 STA %1+1 
0500 .ELSE 

0510 STA %3 
0520 LDA %1+1 
0530 SBC %2+1 
0540 STA %3+1 


0550 .ENDIF 
0560 .ENDIF 
0570 .ENDM 


— Ralph Walden 


MONEY WARS 


Home Accountant vs. Your Personal Net Worth: 

| have been using Home Accountant for two years and after 4 or 5 
versions, | still do not have anacceptable home accounting system. | 
was desperate when Mike Dunn loanedme a new program: Your Per- 
sonal Net Worth. In | dived with boundless enthusiasm. 

YPNW loads data in a few seconds, compared to HA’s minute or 
more. It allows 4000 transactions per disk vs. 500 for HA. To 
add/change a budget category while entering checks in HA, you save 
the data, load a different program, then reload the data, change the 
category, save the data, load a program, reload the data. Five minutes 
of waiting before you can enter the nexttransaction. YPNW handles all 
these functions so the same operations take only a few seconds. | can 
also review a full screen of data at one time instead of browsing, one 
record at a time, as in HA. And check clearing is almost instan- 
taneous. 

HA’s latest version takes 16 seconds per check; clear 100 checks 
and waste 25 minutes waiting! The previous version’s updating was 
as fast as YPNW, but searching for data never found any. Continental 
Software telis me they have no plans to remedy this problem! Why, 
then, am I going to continue using HA instead of YPNW? 

YPNW shows much promise but not as a full home accounting/tax 
record keeping system! The 4000 transactions per disk are at the 
sacrifice of information on each record. HA's checks allow "Paid to" 
(24 characters), as well as memo (25 characters) while YPNW allows 
10 characters only to describe the reason/paid-to, etc. Try “Uncle 
Johnson's 50th wedding anniversary" in 10 characters! Ok! We can 
learn to abbreviate. 

More serious: The YPNW manual says to deposit your paycheck's 
net pay and record taxes withheld into their own accounts. | con- 
tacted Scarborough Systems and asked how to keep track of gross in- 
come for tax purposes and yet handle tax, insurance and other deduc- 
tions from a paycheck. They said to enter a gross deposit and transfer 
each deduction out of income to their respective accounts. When | 
mentioned this will prevent reconciling the gross amount with any 
deposit on the bank statement, they said true, but that's the way to do 
it anyway! 

So much for matching your computer data to the bank's. HA 
handles the problem by allowing you to split any deposit into as many 
accounts as you want. | contacted Scarborough Systems and asked 
about other inconsistencies between the program and the instruction 
manual. The manual says to print accounts; | couldn't get the program 
to do it. The manual says posted entries may be corrected, but | 
couldn't. Scarborough said,''Yes, that's right." 

The clincher comes when they told me they will not supply users 
with a back-up program disk, even fora fee. This means you have to 
send in your bad disk with $5 and probably wait 2 weeks before you 
can update or review your checks, stock records, property data, etc. | 
find this barely acceptable in a game and absolutely unacceptable for 
a program upon which | depend for budgeting and tax purposes!!! 
Scarborough Systems told me they have no plans to change this 
policy and no plans to correct any deficiency in this program in the 
near future. 

If you want a program to balance checks, keep a record of personal 
property, or a simple record of stock purchases and sales, then YPNW 
may be for you. It is easy to use and it's quick. but as an income/tax 
keeping system, | feel you should look elsewhere. 

HA is a much more complete system, slow and cumbersome as it 
may be. It will do the job if you have the patience and are not easily 
frustrated. | do NOT recommend subscribing to, or depending upon 
their phone help ($20 per year) because even when you can get 
through to them, you may wait 15 or 20 minutes on hold at your long- 
distance expense! 

— Steve Golden 





MULTIPLICATION 


108 REM 0004 MULTIPLICATION FLASHO AN 
SX 

ii8 REM Jim ñ. 
128 REM 

138 DIM DX(11),0Y (112,55 (148831,T5 (143, 
RIGHT (17,12) , WRONG (12,12) 

148 GOTO 718:REM Skip around high spee 
d routines, 


Carr — 26-Feb-84 


i58 REM ---- Start a new game 

168 FOR PROB-1 TO 12:REM 12 problems p 
er set. 

178 REM ---- Select multipliers. 


188 A-INTCCHAE-1) KRND CB) t2) 

138 B-INT(C(CMAM-1)XRND CB) *2) 

288 REM .... lise another problem if we 
got this one right already. 

218 IF RIGHTCA,BIYZ THEM RETRY-8:GOTO 
230 

228 RETRYSRETRY+L:IF RETRYSS THEN 188 
238 AB-ANB:TIME=B 

248 REM ---- Display the problem 

2980 POSITION 14,7:7 gen — 

268 POSITION 14,7:? Höja; "xB 

278 REM ---- Track joystick 

288 TIME-TIME*t1 

238 KLIMIYLSY:REM Save last position 
i88 S-STICK(8)-4:KZK*DME (32 : Y Y4DY (5) 
318 IF MIT THEN X-3:REM Check for edge 


i28 IF Y42 THEM Y-2 

33@ IF X)>12 THEM K-12 

i48 IF Y)16 THEM Y-16 

158 POSITION Kií,Y1:? #6;"#"::REM Resto 
re +40 

i68 POSITION H,Y:? H6;"0";:REM Move "Q 
379 MY-(CH-3)*18*(Y-2):REM Current answ 
er 

i88 POSITION 15,8:? Hp”  " 

338 POSITION 15,8:? H6;KY 

488 FOR I-í TO 4@:MEXT I 

418 REM ---- If trigger, check answer 
4280 IF STRIGCJS) THEM 288 

438 IF KYSAB THEN 588 

448 REM ---- Answer is wrong. 

458 SOUND 8,188,18,8:NRONGCA, B) -HRONG(C 
A,B1t1:HITS-8 

468 POSITION 15,8:? gen * 

478 POSITION 15,8:? H6:AB:FOR I-1 TO i 
38:NEXT I 

488 SOUMD 8,8,8,80:FOR I-1 TO 758:NEXT 
I 

498 POSITION 14,8:7 t6:" 

g 

988 REM ---- Answer is right. 


“:G0T0 58 


318 SOUND 8,58,18,8:FO0R Izi TO 99:NEXT 
I 
528 
538 
548 
550 
5668 
578 
588 
598 


RIGHT (4, B)=RIGHT (A,B) 41 

TIM-TIME:IF TIM}5@ THEN TIM-58 

SCORE-SCOREt2* (58-TIM /10+ (AB) /58 

HITS=HITS+1 

IF HITS-4 THEN GOSUB 658 

REM ---- Display score 

POSITION 15,11:? tf5;" " 

POSITION 15,11:7 H6;INT(SCURE*8.5) 

688 POSITION 15,14:? HG:" " 

618 POSITION 15,14:7 H6;INT(i8XTIME/4. 

5$5t8.85)/18 

628 SOUND 8,8,8,8 

630 IF STRIG(JS)-8 THEN GJØ:REM Wait i 

f trigger is still pressed. 

648 POKE 77,8:REM Kill atract mode. 

658 NEXT PROB: RETURN 

558 REM ---- Display pat on the bark 

678 I-14XINT(RND CO) KSEND4 1) 

688 POSITION 8,19:T5-55(I-12,1):7 1t6;" 
"T$ 

698 FOR I-58 TO 90:50UND 8,188-I,18,8: 

NEXT I 

788 SOUND 8,8,8,80:HITS-O:RETURN 

718 REM ---- Initial instructions 

728 GRAPHICS 2416 

730 ? H6:? HG; "HERE flash-o JOHN 

748 ? H6:7 HO;"THE MULTIPLICATION" 

758 ? 86:7? #6; FLASH CARD GAME" 

768 FOR I-1 TO 1288:NEXT I 

778 ? :? "WHAT IS THE HIGHEST MULTIPLI 

ER" 

788 

; 

738 

778 

888 

818 

828 

838 

848 

858 

868 

878 

888 

eg 

898 FOR I-1 TO 11:READ X,Y:DK(I)-X:DY( 

T)=¥:NEXT I 

388 DATA 1,1, 1,-1, 1,8, 9,9, -1,1, - 

1,71, -1,8, 9,9, 8,1, 8,-1, 8,8 

3918 H=3:Y=2:G05UB 1258 

928 REM .... Zero answer counters. 

338 FOR I-1 TO 12:FOR J-1 TO 12:RIGHTC 


? "THAT YOU WISH TO USE (5 TO 12)" 
INPUT MAX: IF MAM(S OR MAH)1Z THEN 


REM ==== One time initialization 
REM ---- Draw background. 
GRAPHICS 1416 

? Hb;" — DEPRÉFETELE)P::? ge 

FOR I-8 TO 14:IF I(18 THEM 7 #6;" 


? H6;I;"[ttff4 4444 4U:NEXT I 
POSITION 14,18:? H6;"score" 
POSITION 14,13:7 86:"time" 

REM ---- Set up joystick Move tabi 


5 


a, 
— S o 
| Ë DN ^ 


Amm =. 
' d | | 
` ' 
`. . - . 


I, J)-8:HRÜNGCI, JI=G:MEKT J:NEXT I 
948 REM Start new game 
958 SCORE-8:HITS5-8 
958 FOR SET-i TO 4:REM á sets per game 
378 POSITION 14,8:? H6:"set '":SET 

388 POSITION 8,12:? H6;"PRES5 start TO 
60" 

398 IF SET-1 THEN POSITION 8,21:? 86:" 
PRESS option TO END" 

1808 REM ---- Wait for START or OPTION 
1918 IF PEEK(5I279)5<3 THEM 1148 

i828 IF PEEK(512779) O6 THEN 19818 

i8i8 FOR Izi TO 20@:WEKT I 

1848 POSITION 8,13:? H6;" 

"REM 17 blanks 
1856 POSITION 8,21:7 ern 
H REM 19 blanks 

i858 GOSUB 15@8:REM Go play a set. 

1878 NEXT SET 

i888 REM ---- Display best & last scor 
es 

i838 LAST-INT(SCOREt8,5) 

1108 IF LAST)BEST THEN BEST=LAST 

1118 POSITION 8,18 

1128 ? Hb;"best ";BEST;" last ":LAST 
1138 GOTO 948:REM Go start new game 
1148 REM Pisplay right/wrong coun 
ters 

1158 GRAPHICS G:POSITION 8,8 

1168 7 "AAB 2 I 4 5 6 7 8 9 16 
ii 12" 

1178 FOR A-2 TO 17:POSITION @,A#2-2:7 
ñ 

1188 FOR B-2 TO 12 

1198 POSITION BX1-2,4*2-2:IF RIGHT(A,B 
A THEN ? RIGHT(A,B32;:G0TO 1218 

1788 ? €," 

1218 POSITION BXi-2,0X2-1:1F WRONG (A,B 
I THEN ? HRÜNGIA,B3;:60TO0 1238 

12418 2? "s 

i238 MEET B:MEKT ñ 

1248 INPUT TS:END DEN Exit on RETURN” 
key 

i258 REM.---- Move messages to string 
1258 FOR I-1 TO 188:RFAD TS:IF T$-"END 
" THEN SEND-I-1:RETURN 
1278 I14-IX14 

1288 59$(I14-13,I14)-" 
EM id blanks 

1238 3$(t114-12,1141-T$ 
1300 NEXT I:RETURN 
1318 REM ---- Pat-on-the-back messages 
1:28 REM Space for 188 id-character me 
ssages 


— gp m— 
— — — — 


1 REM JJ3OROOOOOOHOOOOOHOOOOOODHOOEENBENE 
2 REM XX BLACKHOLE xx 
I REM XX Ed Schembri 12-84 xx 
4 REM J3OHHOOGOOOOOBHHBOOOHOOHHOOBE 
9 REM 


18 GOTO 1168 

28 REM 

i8 REM . ZK MOVE ER 

48 REM 

58 POSITION 2,8:? "score-2"; SCORE 


68 POKE KEY,MT:GET H1,M 

78 IF M-155 THEN GOSUB 240:8-18:8-2:Ai 
-CÓ:Bi-B:POSITION ñ,B:7? "EM':CHRI-45:60T 
0 58 

88 IF M-32 THEN GOSHB 698:6070 58 

38 IF M=27 THEM GOSUB 518:8-18:B-2:451- 
A:BI-B:POSITION à,B:? "RU:CHRI-45:GOTO 
58 

i@@ IF NOT (M-42 OR M-43 OR KAS OR M 
-61) THEN W-HUSR(IBELLI:GOUTO 68 

118 à-6*2*(H-42) -2X* CM 43) : BCBt2X LM- 61) 
-2X*X(H-45) 

iz8 IF A418 THEN 4-18 

138 IF 4228 THEN 4-28 

148 IF B<Z THEN B-2 

158 IF B)28 THEN B-28 

168 IF (8)2 AMD B(20) AMD M-42 THEM à= 
28 
178 
18 
188 
-28 
i38 
= 

288 POSITION A1,Bi:? CHRSCCHRIJ:LOCATE 
A,B, CHR:POSITION A,B:? CHRS(CHRt128): 

CHR1-CHR:A61-6:Bi1-B:G0TO 580 ¿Z 

218 REM 

228 REM. 

238 REM 

248 LOCATE 4,8,CHR: POSITION A,B:? CHRS 
(CHR) IF CHRX2168 THEM WCUSRCBELL) : POP 
:GOTO 58 

245 FOR PL=8 TO 8 STEP -1:50UND B,PLX4 

4,18,PL:50UND 1,PLX44*2,18,PL:;FOR DLY- 

i TO 18:NEXT DLY:MEHT PL 

258 Ki-8:Y1-8:HIT-8:L-8:R-L : UCR: D-U 

268 TRAP 458:X-8/2-5:Y-8/2-1:DP IR-1X(X- 

8)142X(Y-9) t£ 3X EKAK 4X (Y-8) 

278 OM DIR GOTO 288,228,1808,318 

288 lU-Aà(X*1,Y*1) : HITZACE 1, Y3: DZA CK 1, 

Y-1I:6070 328 

298 R-ACH-1,Y-1) : HITZA CX, Y 11 LAHTI, 

Y-131:60T0 3128 

i88 lH-AÓCK-1,Y*1) : HITCACX- 1, Y) : DCA CK 1, 


IF (B)Z AND B(28) AND M-43 THEN a: 


IF (A}1@ AND à(28) AMD M-61 THEN B 


IF €A)1@8 AND 4(28) AND M-45 THEN B 


xx logic SR 





Y-i):G0TO 128 

318 R-A(KX-1, Y*12 : HITCA CK , Yt 12) : LA CK 1, 

Tti) 

i28 IF HIT THEM EPSS="H":GOTO 468 

ie IF (R-1 AND L=1) OR (H-i AND D-1) 
THEN EPSS$-"R'":G0T0 468 

140 IF MOT (U-1 OR D-1 OR L-1 OR R-1) 
THEN i68 

158 PIR-iX(R-1) *2XCH-1) tHE CL- 12 t4 (D-1 
):L-8:R-L:U-R:P-I:GOTO 278 

350 OM DIR GOTO 378,398,418, 438 

178 K=X+1:IF K-9 THEN 478 

388 GOTO 448 
390 Y-Y-1:IF 
488 GOTO 448 
418 X-H-1:IF 
428 GOTO 446 
4308 Y-Y*1:IF Y-9 THEN 478 

448 L-8:R-L:l-R:D-U:GOTO 278 

458 EPS$="R" 

468 SCORE-SCORE*1:FOR FLASH-1 TO 18:60 
SUB 490:POSITION A,B:7 EPSS:NEKT FLASH 
: RETURN 

478 Mi-(Ht5)K2:Yi- (Y*1)12: SCORE-SCORE* 


? 


x 


488 P-P+1:FOR FLASH=1 TO 18:605DB 4398: 
POSITION 4,8:7 MKRS(P,PI:POSITION M1,Y 
1:7? MKRSCP,P):NEKT FLASH: RETURN 

498 FOR DLY-1 TO I8:MEKT DLY:POSITION 
4,B:? " ":POSITION Hi,Y1:? " “:FOR BLY 
=í TO 38:NEXT BLY: RETURN 

588 REM 
518 REM . 
528 REH 
538 LOCATE A,B,CHR:POSITION ñ,B:? CHR? 
(CHR-128) :POSITION 12,4:? "B':CHRI-2 
548 h-12:B-4:01-5:B1-B 

558 POKE KEY,MT:GET H1,M 

568 IF M-27 THEM LOCATE à,B,CHR:POSITI 
OM 4,8:? CHRSCCHR-128) : RETURN 

578 IF M=32 THEN GOSUB 638:G0TO 558 
588 IF M155 THEN 568 

538 IF NOT (M-42 OR M-4Z OR M-45 OR M 
=61) THEM H-HSR(BELL):GOTO 558 

588 &-0*2X(H-42) -2X CH-43) :B-B*2K (M7 61) 
-2*(MH-45) 

618 IF <12 THEM 8-26 

628 IF Ad26 THEN A-12 

6308 IF B(4 THEN B-18 

648 IF B)18 THEN B-4 

658 POSITION Al,Bi:? CHRS(CHR1J:LOCATE 
A,B,CHR:POSITION A,B:? CHRS(CHRt128); 
CHRI-=CHR:Ai-A:Bi=B:G0TO 558 

668 LOCATE A,B,CHR:IF CHR-168 THEN IF 

HOLE-HOLES THEN POSITION A,B:? CHRS(CH 


6 


Y-8 THEN 478 


K-8 THEN 478 


XX solve XX 


R):N-USR(ELL) :GOTO 558 

678 IF CHR-168 THEN POSITION A,B:7 “CF 
CHR1-28:HO0LE-HOLE*1:GO0TO 558 

688 POSITION à,B:? "RU:CHRi-ZI2:HOLE-HO 

LE-1:60T0 558 

638 POSITION 2,22:? "Are you sure you 

want to solve it?" 

788 GET H1,AN:IF NOT CAN-89 OR AN=78) 
THEN MEUSR BELL) :GOTO 788 

718 IF AN=78 THEN 7 "4I" :RETURN 

728 POP :? “4h LOCATE A,B,CHR:POSITIO 

M 4,B:7? CHRS CCHR-128) :POKE KEY, MT 

738 FOR Y-1 TO 8:FO0R X-1 TO 8:50UND 8, 
K*iB8tyX15,18,18 

748 LOCATE HX2*18,YX2t2,EP5:IF EPS-32 
AND ACK, YI=8 THEN POSITION H¥2416, Y¥Z+ 
2:7 usni MENT M:NEKT Y:GOTO 868 

758 IF MOT (EPS-28 AND ACK,Y)=1) THEM 
788 

768 FOR Pü-58 TO 8 STEP -1:50UND 8,B0% 
96,18,B0/5 

778 POSITION XX2*180,Y*X212:? H "IPOSITI 
QN KX2*18,YX2t2:7 “oi MEXT DÜ:NEKMT NN 
EXT Y:GOTO 868 

788 IF MOT (ACK,YI=1 AND EPS-32) THEN 
818 

798 FOR Dü-58 TG 8 STEP -1:500ND 8, POR 
65,18,D0/5 

308 POSITION KX2*:18,Y4242:7 "e":POSITI 
QN HX2418,Y72*2:7 “O'S HEXT DO: 5-543: NE 
XT K:NEXNT ¥:G0TO 868 

8i8 FOR DO=58 TO 8 STEP -1:50UND 8 , 60% 
84,108,b07/S 

828 POSITION 4yx2*18,Y*242:7 "NH :POSITI 
ON MX2*18,T7X232:7 "Än: NEXT DO:NEXT H:H 
EXT Y 
838 REM 
848 REM . 
858 REH 
868 SOUND 8,8,8,8: SCORE-SCOREt5:POSITI 
ON 2,8:7 "Fag; ; SCORE: IF 5-8 THEN 
FOR BL5-1 TO i8:H-USR(CBELLI : NEXT BLS 
878 POSITION 2,22:? JEET pi au ag 
ain. HSA quit" GET HI,M:IF H-i55 
THEN POSITION 8,2:TRÀP 32767:END 

888 FOR H-1 TO Z8:POSITION 8,23:7 CHRS 
(155) :MEXT X 
898 REM 

9388 REM. 
918 REM 

328 PEKE 7825,282:? Wd: BLACKHOLE | by 
Ed Schembri '84" l 

318 a :? :? "Do you want: IEN] you plac 
e hole{s) IFE] random p 
lacement" 


xx fini ER 


XX set-up XX 


e E pe d ] ær 
c3 Si 1 C» 


USEFUL 


US FLIES FRE 


41 REM PICK LOTTERY BY STEPHEN E. SILUE M PICKING YOUR WINNING NUMBERS" 


RBERG 

4 7 "A" POKE 82,1:POKE 81,37 

5 POSITION 5,3:? "LOTTERY NUMBERS BY T 
HE CARP by 5.E. Silverberg 
0$? ay? 

3 OPEN 1H,4,8,"K;" 

ië DIM L(45),0¢€45) , ACS) 

980 ? :PRIHT "THIS PROGRAM IS FOR THE N 
EM YORK STATE LOTTERY -" 

99 7 "IT WILL RANDOMLY PICK 6 NUMBERS 
OUT OF 44." 

58 ? :PRINT " THE LOGIC BEHIND THIS 
PROGRAM -":? ;? "THE N.Y.5. LOTTERY SE 
LECTS 6 NUMBERS OUT OF 44.''; 

78 PRINT " THIS PROGRAM HILL SELECT 76 
AME CARDS OF 6 NUMBERS. EACH NIIMBERHT 
LL APPEAR ONCE PER GAME CARD"; 

88 PRINT " YIELDING Å TOTAL OF 4 
2 NUMBERS PLUS ZEKTRA NUMBERS. THIS G 
IVES Å TOTAL OF44 NUMBERS." 

61 7 ;? "PRESS ANY KEY TO CONTINUE" 

82 GET H1,4;:? "Rn 

$5 7 :PRINT “ALL THE NUMBERS ARE CHOSE 
N RANDOMLY AS THEY ARE IN THE LOTTERY 
» THEREFORE, YOU HAVE Å VERY"; 

38 PRINT " HIGH PROBABILITY OF GETTIN 
& AT LEAST OWE OF THE 6 NUMBERSCHOSEN 
ON ANY GAME CARD."; 

1806 PRINT " Å GOOD CHANCE OF HAVI 
NG 2 NUMBERS AND A FAIRCHANCÉ OF GETTI 
MG 3 MUMBERS."; 

1981 ? " YOUR CHANCES OF GETTING 4,5 
, OR 6 NUMBERS INCREASE IF YOU COMBINE 
i SETS OF GAME CARDS AND"; 

182 ? " THE EXTRA NUMBERS TO PLAY 22 
GAMES." 

185 ? :? 17 "PRESS ANY KEY TO CONTINUE 
"GET HAI? UR" 


118 PRINT :PRINT :PRIMT " 600 
p LUCK!" 

i28 PRINT :PRIWT :PRIMT © PLEASE FOR 
WARD 55 OF YOUR MINNIMGSTO ME. THANK 


you,” 

138 PRINT :PRINT 

150 PRINT " FOR OTHER LOTTERY SYSTEM 
5 WITH ñ DIFFERENT GROUP OF NUMBERS T 
D CHOOSE FROM CHANGE LINES"; 

151 ? " 218 AND 258." 

i78 PRINT " IF OTHER THAN 6 NUMBERS 
ARE TO BE PICKED - CHANGE LINES 358, 
368, 370, 530, 628, 658." 

188 ? :? ;? "PRESS ANY KEY TO CONTINUE 
“GET HL, ÀA: CLOSE Hi 

198 ? '"&";? "PLEASE BE PATIENT":? "I Å 


288 G=1:4=8 

218 FOR Izi TO 45:L (I)-8:C(I)-8:NEXT I 
:REM RESET L Et 

258 FOR K-1 TO 44 

268 LET L(K)-INTIRND CL)H4) EL 

278 IF (LOO X1) OR (L(X))44) THEM 268 
288 IF C(LCK))-1 THEN 268:REM K USED 
238 C(LOOD-1 

300 NEXT K 

350 FOR M=1 TO 37 STEP 6 

i68 FOR EN TO M+4 

178 FOR N-K*1 TO M+5 

388 IF L(K)XL(N) THEN 428 

338 LET T=L(N):L (N)=L CO :L CO-T 

428 NEXT H 

438 MEXT K 

448 NEXT H 

458 J=43 

468 FOR I-1 TO 44 

478 IF CCI)-8 THEM LCGD-CUD :J-44 

488 NEKT I:POKE 752,1 

498 POSITION 21,18:PRINT "GAME CARD H 
"G PRINT 

588 M-i 

518 FOR 4-65 TO 71 

528 PRINT "GAME ";CHRS C(A) 

518 FOR KN TO M+S:PRIMT L(M);" nr RER 
T N:PRINT :PRINT 

568 P-1 

628 M-M*6 

639 NEXT å 

648 POSITION 25,18:? "EXTRAS " 

658 POSITION 25,11:PRINT L(42);" ";L(4 
4) 

638 FOR Izi TO 5088:NEKT I:7 "R" 

788 G=G+1:6070 218 





TM. ” Dn 


CT CY "s / H 
11 | | Jå + Za? + Pw + J i + io + 


188 GOSUB 980@:GRAPHICS 8+16:G05U8 588 
:COLOR i 

118 FOR Y-8 TO 95 STEP 6:PLOT @,8: BRAK 
TO 319,Y:PLOT 6,198: DRAWTO 319,198-Y:N 
EXT Y 

i28 FOR Y-8 TO 198 STEP S:PLOT 113,95; 
PRAHTO 8,Y:NEKT Y 

138 PLOT @,191:DRAWTO 319,131 

148 GRAPHICS 8t22:605HUB 588 

i58 ? "To scroll picture up or down," 
158 ? "use the Et and k4 keys." 

165 ? "ESC key--back to MENU." 

i178 P-PEEK(C764):IF PIA OR P215 THEN 1 
78 

188 GRAPHICS 8*15t12:605HB 588 

208 SCR-PEEK(883*256XPEEK (8033 

218 SIZE-7648:LO0-5CRt 40: HI-SCR*5IZE 
228 P-PEEK(764):IF PIL5 THEM I-USRCSH, 
SCR,LO, SIZE2:I-HUSR(CSH, HI, SCR, 48) :60T0 
228 

238 IF P-i4 THEM I-USR(GH,LO,SCR,SIZE) 
:I-USR(OMM, SCR, HI,482:G0TO0 228 

248 IF P-28 THEN RUN "D:MENI" 

258 GOTO 228 

588 SETCOLOR 2,8,8:SETCOLOR 1,8,14:RET 
URN 

8338 REM 
8991 REM 
8992 REM 
8393 REM I-USRESM, SRC, BEST, SIZE) 

3888 DIM SH$(1823:SM-ADRCSH$) 

9818 SHS -"hhilo HAC hir hE MLE cr NG 


— — — — — — — ee  . p qm n a MED aum ar m dip mm rt e mn mm te 





ION Are EPID GF RETE Kc CREER" 
3828 RETURN 


5 DIM FISCL5), 51S CFREC82X8,85) : GRAPHIC 
358 

KI IT T 

i8 ? “WHICH FILE TO PRINT": 
20 ? ;? :7 “HON MANY COPIES"; 
38 OPEN i1i1,4,8,F1$ 

48 OPEN 12,8,8,"p;" 

68 TRAP 588 

78 GET H1,0:5TS$ (GL ENCSTS3 41) -CHRS EA 

88 GOTO 78 

588 IF PEEK(195) O 116 THEN ? :? “ERROR 
II; PEEK C195) : END 

$85 CLOSE Hi 

518 FOR I-1 TO N 

SiS POSITION 2,15:? "PRINTING COPY H"; 
pM. 

516 ? 12;5T5:7 H2;CHR5(C12); 

517 NEXT I 

528 CLOSE H2:END 


:INPHT FIS 
:INPUT N 


XY PLOT by STAN OCKERS 





18 
28 


REM 

REM XE 

22 REM EN PART OF XYGRAF 

214 REM RE 45. OCKERS 12/84 

26 REM XX ACE Newsletter Feb. 84 

28 REM EN 1667 Vine Maple Dr. 

30 REM KX Eugene, OR 97485 

I2 REM wx $12 year 

74 HEM FER GEER ERE EE EE OK MGE 

36 REM 

38 GOSUR 1888:605UB 352:POKE 752,1:7 C 

HR$(125);" IMITIALIZING":GOSUB 4090 

48 MPT5-188:DIM FNHS C141,D5$ C200, ES C4), 

AG (128) ,DATS (4), HCMPTS) , Y CHPTS) , MARK CM 

PTS), SHCMPTS) , SY CMPTS) 

58 DIN X5CL C112, YSCLCL1) ,.XTTL$ (40), YTT 

15(24), GTTLS C48) DATS", DAT": OPEN tti, 4 

,9,"K;":POKE 15,112:POKE 53774,112 

68 GRDFIG-B:STYFLG-8:MKER-8:G0SIB 3188 
(ESZ"R 16" 

78 UML-45:UXRZ295:UYTZ13:UYB-163:ML -UE 

L:XR-UXR: YT-UYT; YB-UYB 

88 IF PEEK(Í6543(058 THEN 86 

82 F-8:FüR J=1 TO 14: FNMS CU, I) CHRS CPE 

EK(16523+J)): IF FNMSCI,.D-"," AND F-8 T 

HEN L-J:F-1 

84 NEKT J:FNMS-FNMS(1,L*3):G05UB 782 

86 REM XK JUMP HERE IF WO FILENAME TO L 

QAD X 

$33 REM * MENU * 

198 POKE 752,1:7 CHR$(1251;" 
EMII':7 ;? 01) READ FILE":? 

QT GRAPH & AXES" 

118 ? ;:? (Z) LIST FILES ON DISK: 7°37 
"(432 CHOOSE TITLES ETG."17% “CSF PL 

OT ADDITIONAL CURVE" 

115 7 :? "t6) DISPLAY GRAPHIC SCREEN " 
A a (PRESS KEY TO RETURN)" 

i28 7 :? "(7) PRINT GRAPH ON PRINTER": 

? 1? "(8) CLEAR GRAPH SCREEN":? 17 "(3 

) EMTER/MANIPULATE DATA" 

1398 IF LENCFMMS)>@ THEN POSITION 18,22 
:? "FITLENAME-U ; FNMS (2) 

158 GET Hi,K:IF KX43 OR K)57 THEN 158 

168 ON K-48 GOTO 788,3:88,1388,288,458, 
378,178,175,188 

178 GOSHS 1488:G05UB I888:G0TO i88 
i75 GOSUB 9?58:G60TQ0 i88 

188 RHN "D:XYENTRY" 

199 REM % TITLES ETC. FOR GRAPH X 

288 ? CHRS$(125);" GRAPH CHOICES":? "3 


KYPLOT 


EEE RE * 


HYPLOT M 
SS VET PL 


SSG KHIN, KHAN, YMIN, YMAK "2" "TAM 
IN; ii "e EMAR; id "s YMIM: if a YMA 

218 7 :? “WFE X-AHI5 TITLE'":? " "i 
ATTLS 


212 ? :? “HRM Y-AXIS TITLE": 2 " ES 
YTTLS 

214 ? :? "NEN GRAPH TITLE"? " 
TTLS 

216 ? :? "EE GRID '";:IF GRDFLG-8 THEN 
PRINT d'Dir 

218 IF GRDPFLG-1 THEN ? "PPE: 

220 ? :? "E GRAPH STYLE "::IF STYFLG 
-80 THEN ? “CSR 

222 IF STYFLG=1 THEN ? "OSDIR E" 
228 ? ;? "HIYdi RETURN TO KYPLOT MENU" 
238 GET BI RIEF K-32 THEN 188 

231 IF K(49 OR KO 54 THEN 238 

212 OM K-48 GOTO 248,268,252,254,278,2 
88 

239 REM X MEW MIN OR MAX VALUES * 

248 TRAP 40800:7 CHR$(125);" CHOOSE Q 

NE":7 12 "(1) KMIN <";HMIN:? :? "(23 X 
MAX ="; KMAR 

242 ? ;? "{3) YMIN -'";YMIN:? :? "(4) Y 

MAK ="; YMAK:? :? HJT RETURN TO CHOI 

CES MENS" 

244 GET Hi,K:IF K-32 THEN 288 

245 IF K(49 OR K?52 THEN 244 

246 ON K-48 GOTO 258,252,254,256 

258 TRAP 258:? CHRS€125):7 :? :? "INPU 

T HMIN  (";NMIN;"3 '";;INPUT HAIN: GOTO 

248 

252 TRAP 252:? CHR$(125):? :? 

T KMAK 

248 

254 TRAP 254:? CHR$(125):? :? :? "TNPU 

T YMIN  (";YMIN;") ";:INPUT YMIN: GOTO 

248 

256 TRAP 256:? CHR$(12531:? :7 :7 "INPI 

T (nx C'IYMAR;U) "j: INPUT YMAE:GOTO 

248 

268 ? CHR$(125):7? 17 :? "INPUT K-AKIS 

TITLE '";:INPUT HTTLS:G0TO 288 

262 ? CHR$(125):? :? 1? "INPUT Y-AKIS 

TITLE ";:INPHT YTTLS:GOTO 288 

264 ? CHR$(125):7? 17 17 “INPUT GRAPH T 

ITLE ";:IMPUT GTTLS$:GOTO 288 

278 IF GROFLG-@ THEN GRDFLG-1:GOTO 288 

272 GROFLG-8:G0TO 288 

288 IF STYFLG-@ THEN STYFLG-1:60T0 288 

287 5TYFLG-8:G0TO 288 

299 REM XS FIND HIGHEST & LOWEST VALUES 
* 

i88 KMIM-X CL): KMAKSH (CI): YMIN-Y Ci) : RON 

zY (i) 

128 FOR JZZ TO ENTR 

122 IF MARKLJI)Ø THEN 362 

i38 IF KCJ)CHMIN THEM GOSUB I64:G0T0 £ 

aa 


"b 


:? "INPL 
("I KMAK;") "i INPUT KMAK:GOTO 


8 


340 IF Y(J) XYMIN THEM YMIN-Y C1) 

358 IF YCL DYMAK THEN YMAK-Y CJ) 

3608 IF X(J)?NHMAK THEN NMAHSKO 

362 WENT J:RETURM 

363 REM * ORDER X DATA SUBROUTINE ¥ 
J64 T 1T." Sorting":SFLG=Ø:FOR K- 
i TO ENTR-1:IF M(K+1))=R(K) THEN 368 
366 TEMP-M(O : K CC) ZK CC 12 : K CK 4 3) TEMP : 
SFLG-1:TEHP-YCK) : YULK2 Y CK 12 : Y CK $127 TE 
HP 

368 NEXT K:IF SFLG-1 THEN 364 

i78 RETURN 

3173 REM # PLOT GRAPH AND AMES X 

i88 GOSUB 250:7 ;? " SCALING" 
Qi82 Roby CYMAX-YMIN) £16: MSDH= CRMAX-KMI 
43/198 

428 60548 1588:605HUB 1548:G05UB 1486:6 
OSUB i1588:G05UB 1858:G05UB 1550 

4i8 IF STYFLG-@ THEN GOSUB 898 

432 IF STYFLG-1 THEM GOSIIB 828 

448 GOSUB 352:G0T0 i88 

449 REM X DRAW ADDITIONAL CURVE ¥ 

458 GOSUB 1408:G05HB 1548 

452 IF STYFLG-8 THEN GOSUB 888 

454 IF STYFLG-1 THEN GOSUB 828 

456 GOTO i88 

699 REM * READ A FILE X 

798 ? CHR$(1252:6050UB 1288 

782 TRAP 768:0PEN 12,4,8,FNMS:INPUT H2 
,ENTR 

718 FOR J-1 TO ENTR 

720 INPUT HZ;M,K,Y 

730 MARK CJM IK CD ZA :YCU17Y 

748 NEXT J:7 :7 ;? 90000 "FNS?" LOA 
BED 338008060: 

742 FOR J-1 TO LEM(FNMS) :POKE 1639+J,A 
SCCFNMS C12) BERT J 

758 CLOSE H2:GÜ05lB 388:605HB 1370: TRAP 
48888:GOTO 188 
788 7 :7? 17 u" 

wees" GOTO 758 
799 REM X PUT CURVE OM SCREEN PT TO PT 
* 

880 COLOR 1:FO0R J-i TO ENTR-1:IF MARKI 
JI>8 THEN 812 

818 Hi-SHCI2 :42-5K CIAL) : Y175Y C. : EECH 
(J+1) :GO5SUB 2218 

812 WEXT J: RETURN 

819 REM # PHT POINTS ON SCREEN X 

828 COLOR 1:FOR J-1 TO ENTR:IF MARKO 

28 THEN 826 

822 M-S3KCI :Y-SY C2 : IF HOXR OR XXL. OR 
Y?YB OR Y4YT THEM 826 

824 Y-YB-Y*tYT:GOSUB SIBTMKER 

826 NEXT J:MKER-MKER*2:IF MKER-8 THEM 


SSES FILE NOT FOUND 


MKER-8 

828 RETURN 

818 PLOT X,Y:PLOT K-2,Y-Z:DRAMTO Ht2,¥ 

-2:DRAHTO M*2,Yt2:DRANTO K-2,Y*2:PRAHT 

0 K-2,Y-2:RETURN 

832 PLOT X,Y:PLOT X,Y-2:PRAMTO Ht2,Y:D 

RANTO X,Y*2:DRAHTO M-2,Y:DRAWTO M,Y-2: 

RETURN 

834 PLOT M,Y:PLOT X,Y-2:DRAMTO K+2,Y+2 
:DRAMTO X-2,Y*2:DRANTO X,Y-2:RETURN 

836 PLOT K,Y:PLOT KY+Z:DRAMTO H*2,Y-2 
:DRANTO K-2,Y-Z:DRAHTO M,Y*2:RETURN 
$49 REM * CLEAR GRAPHICS SCREEN * 

958 ? CHR$(125) : RAMTOP-PEEK (1863 : POKE 

166, INTCTOP+1/2563 SPOKE 88,SC8L0:POKE 
89,5C8HI:7 CHRS (125) :POKE 186,RAMTOP 
352 GRAPHICS @:DLIST-PEEK (560) +256*PEE 

KCS6i) :POKE DLISTtI,78:POKE DLIST+6,6: 
RETURN 

969 REM * DISPLAY GRAPHIC SCREEN UNTIL 
KEY PRESSED X 

378 GOSUB 1488:POKE 764.255 

972 IF PEEK(7641=255 THEN 972 

974 GOSUB 352:60T0 188 

333 REM % SET ASIDE PLOTTING SCREEN X 
1888 GRAPHICS 8*16:50UBLÜ-PEEK (5683 : 5A 
U8HI-PEEK(561):RAMTOP-PEEK(1803;POKE 1 
86, (RAMTOP-33) : SCSLO-PEEK (88) 

i882 SCØHI-PEEK (89): TOP-RAMTOP : GRAPHIC 
5 8:5CBLB-PEEK (88) : SCØHI-PEEK (89) 

i818 SAVØLO-PEEK (568) : SAUBHI-PEEK (561) 
: RETURN 


1139 REM XS INPUT FILENAME X 

1288 POSITION 18,17:? "INPUT FILENAME" 
# 

1282 POSITION 9,18:? "D: DAT"; 
1218 P-I:POÜSITION 11,18:FNMS="D:" 

1228 GET Hi,K 

i238 IF K-155 THEN 1288 

1248 IF K-126 AND P)3 THEN P=P-1:FMMSC 
Pin "i? CHRSCK; 

1242 IF K)96 AND K(121 THEM K-K-32 
1258 IF ((K)47 AND K458) OR (K)64 AND 


K(91)) AMD P(11 THEN FNMS (P,P) -CHRS (CK) 
12 CHRS CO ; :PZP*1 

1260 GOTO 1228 

i288 FMMSCPI-DATS: RETURN 

1299 REM X SHOW .DAT FILES OM DISK X 
1388 ? CHR$(125):0PEN 112,6,0,"D:X. DAT" 
TRAP 1348 

1318 FOR K-8 TO 28 STEP 28 

1330 FOR J-1 TO 22:INPUT 12;D$:POSITIO 
N K,J:? DS;:MEKT J:NEXT K 

1348 GOSUB 1378 

1368 CLOSE H2:TRAP 48888:G0TO 108 


1369 REM X STOP FOR SPACEBAR X 

1378 POSITION 28,27:? "GSR WaT" 
2 

1388 GET #1, K:IF KOZ2 THEM 1188 

1338 RETURN 

1399 REM X SWITCH TO GR. 24 X 

1488 SAUCTL-PEEK(5592 :POKE 5593,8:POKE 
568, SAVSLO:POKE 561,56U8HI:POKE 88,5C8 
LO:POKE 89,5C8HI:POKE 87,8 

1418 POKE 559, 5AVCTL: RETURN 

1449 REM X SWITCH TO GR. B X 

1458 SAUCTL-PEEK(553) :POKE 559,Ø:POKE 
568, SAVØLD:POKE 561,54UBHI:PÜKE 88,5C8 
LO:POKE 89,5CØHI:POKE 87,8 

1468 POKE 559, 5AYCTL: RETURN 

1499 REM X FING MINDON-VIEMPORT TRANSF 
ORMATION X 

1500 HKL-EMIN:HXR-KMAH:MWYT-YMIN:WYB-YM 
AK 

1520 WUMXM-LUKR-UXLI / CHER-MXL 

1522 MUXA-UML-HKLXMUKM 

i524 MUYHM-(UYT-UYBI/ ONT NEI 

1526 MWUYA-UYB-HYBXHUYM 

1539 REM * CALC POINTS FOR SCREEN & 
i548 FOR J=1 TO ENTR:5KCII -HUKMXK CJ] +H 
UKA:SY CI) -HUYMKXY (J) +MUYA:MERT J 

1542 RETURN 

1549 REM X DRAW GRID & TITLES X 

1558 MKL-235:MYL-13:IF GRDFLG-8 THEN M 
KL-58:HYL-158 

1551 COLOR 1:PLOT 45,13:DRAMTO 45,163: 
PRANTO 235,163:FüR YTL=13 TO 162 STEP 
15 

155b PLOT 42,YTL:DRAMTO MXL,YTL:NZMT Y 
TL:FOR YTS-16 TO 168 STEP Z;PLOT 45,YT 
S:DRAHTO 58,YTS:NEKT YTS 

1554 FCR KTL=45 TO 295 STEP 25:PLOT XT 
L,166:DRAWTO KTL,MYL:MEKT KTL 

1556 FOR XTS-45 TO 295 STEP 5:PLOT KTS 
,163:DRAWTO HTS,158:NEXT KTS 

1568 Y-184:L-LEN(XTTLS):IF L-8 THEN 15 
64 

1562 W-(48-L)/2:DADR-ADR CKTTLS) :à-USR( 
TADR,K, Y,DADR,L,L) 

1564 IF ERO B THEN GOSUB 1592 

1578 H=Ø:L=LEMCYTTLSJ:IF L-8 THEN 1574 
1572 Y-(192-L X8) /2:DADR-ADR CYTTL $2 : ET 
SRCTADR, X, Y DADR, L;i) 

1574 IF EYO 8 THEN GOSUB 1596 

1588 L-LEN(GTTLS):IF L-8 THEN 1598 
1582 Y-8:X-(48-L)/2: DADR-ADR CGTTL 2) : A= 
USR CTADR, X, Y, DADR,L,L) 

1598 RETURN 

1592 M-I13:D$-ES:DADR-ADR (D$) : A-USR(CTAD 
RR Y DADR, 4,4) : KCHtd i Y Y-4: DS-STRS CEK 
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):L-LENCD2) : A-USR CTADR, KH, Y, DADR, L, L} 
1534 RETURN 

1536 Y-172:0S-ES : DADR-ADR (OS) :ATUSR (TA 
DR KY DADR, 4,2) : EC AED Y-Y*4:DS- STRS CE 
YI :LZLEN CDS) : AZHUSRCTADR, E, Y DADR, L, LI 
1598 RETURN 

1599 REM SX DETERMINE EXPONENT & SCALE 
VALHES X 

1688 KSAVIKMAK:YSAVIYMAN 

i688 KMAN-ABSCKMAK):IF HMAK)-1 AND HMA 
KK18888 THEN EK-8:G60T0 1788 

1618 IF XMAH)1888 THEN 1658 

1620 FOR EX--1 TO -58 STEP -1:Xi1-HKMAME 
INT(t(Cia^-EX) £8.81) 

1530 IF X151 THEM i788 

1548 HERT EX 

ies8 FOR EX-i TO 58:Hi-MMAK/INTCCIB^ER 
248.61) 

i668 IF Ei(i8 THEN 1788 

1578 NEXT EX 

1788 YMAM-ABS(CYMAK) IF YMAXD-1 AND YMA 
X(1888 THEN EY-8:GÜTO 1888 

i718 IF YMAHJ100 THEN 1758 

1728 FOR EY--1 TO -58 STEP -1:Yi=YMAH® 
INT €€1@4-EY3 +4. BL) 

1738 IF ¥i}i THEM 1808 

1740 NEXT EY 

1758 FOR EY-1 TO S8:YI-YMAK/INTCCI8G^EY 
)t8.81) 

1768 IF Yi<ti@ THEN 1888 

1778 NEKT EY 

1888 FOR J-1 TO 11:X5CL CJ) -H5AU- C.1- 1) 
Rob YSCL CJ -YS8U- CJ- 1) XHSD Y 

1818 IF EX(8 THEN KSCLCJY-KSCL C.D)X18^- 
EX 

1812 IF EM)B8 THEM HS5CL (J) =K5CL C53 7184E 
K 

1828 IF EY(B8 THEN YSCLCJI-YSCL CJ) K18^- 
EY 

1822 IF EY)8 THEN YSCLCJI-YSCL CD /18^E 
y l 

1838 NEKT J 

i848 RETURN 

1843 REM X PRINT SCALES * 

1858 DADR-ADRIDS):M4-2:Y-8:FOR J-1 TO 1 
1:N-Y5CL (JD : HFLG-8:6051B. 1980:A-05R TA 
DR,K,Y,DADR,LENCDS32,3):Y-Y*15:NENXT J 
i868 X-5;FO0R J-1i TO 1 STEP -i:Y-168:I 
F (J/23-IMTCJ/2) THEM Y-176 

1862 H-KSCL UJ) :RFLG2-1:G05UB 1988:6-U5R 
(TADR,X,Y,DADR,LEN(DS) ,4) t NZK*S:NMENXT J 
1838 RETURN 

1899 REM XZ SCALE NUMBER X 

i388 SIGN-G:IF N(B8 THEN SIGN=1 

1918 N-ABSCN) :DS-STRS (N) 


xy plot 
cont 


1928 IF INT(OD ON THEN DSCLENCDS) 41)-" 

2088" 

i938 IF VELO THEN IF LEN{DS)>3 THEN 

p$-p$C1,3) 

1940 IF KFLG=1 THEN IF LEN(D$}>4 THEN 

p$-p$t1,4) 

1942 L-LEN(CDS) :IF D$(CL,L)-"." THEN DS 

LLJ -H u 

1950 IF SIGN-1 THEN FOR K-1 TO LENDS) 
PSEK, KI CHRS CASC CDS CK21 128) :MEKT K 

1368 RETURN 

2228 REM * CLIPPING ROUTINE X 

2222 REM X SEE ANALOG H2 P. 29 MAR/APR 
'$i (TOM HUDSON) * 

2238 Li-8:12-8:R1-8:R2-8:T1-8:T2-8:B1- 

8:B2-8 

2248 IF 
2250 IF 

2268 IF 
2270 IF 

2288 IF 
2238 IF 

2388 IF 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


KI (NL 

KIKER 

T1? YB 
YiCYT 

KZ XL 
KZIKR 
Y2)YB THEN 
2318 IF Y24YT THEM T2-1 

73208 IF Li+L2=7 OR R1tR2-2 OR T1*T2-2 
OR B1tB2-2 THEN RETURN 

2338 K3-Hi1:Y3-Y1:H4-M2:Y4-Y12:605UB 239 
Ë 

2148 Li-L2:R1-R2:T1-T2:B1-B2 

2:580 Mi-XM:Yi-YW:N3-N2:Y3-Y2:H4-H1:Y4- 
¥i:GOSUB 2398 

2168 IF Ki<KL OR KidKR OR YÍ(YT OR YD 
YB OR XHÁML OR KMÓHR OR YMSYT OR YH)YB 
THEN RETURN 

2378 PLOT K1,YB-Yi*tYT:DRAMTO KW, YB-YHt 
¥T 

2388 RETURN 

2198 IF LitTitBitRi-@ THEN MN-MI:YH-YI 
: RETURN 

2400 IF Li THEM XW-EL:YM-YIt(YA-YS)XCH 
L-X3)/CH4-HZ1:N3-EMH: YZ-YM:IF YIDSYT AM 
b Y3(-YB THEN RETURN 

24i8 IF Ri THEM MMW-HR:YHW-YZt(Y4-YI)XCN 
R-Xi1/0H4-M31:KX3-HMM:YI-YM:IF Y3)-YT AN 
D YIC=YB THEN RETURN 

2428 IF Bi THEM YM-YB:NM-HIt(K4-EI)K(Y 
B-Y11/(0U4-YZ1:NI-EMW: YS-YM:IF M3)-HR AN 
5 KI<=KL THEN RETURN 

2438 IF Ti THEN YH-YT:NM-HIit (K4-MI)(Y 
T-Y3)/1Y4-Y3):X3-EM:YI-YMW:IF HJJSKR AN 
P XI(-HL THEM RETURNS 

2448 RETURN 

2999 REM X DUMP GR. 8 SCREEN TU PRINTE 
R X 

zag SC-PEEK(CBB)TPEEKCB2)255 


L1-1:G60T0 2268 
Ri-i 
Bi-1:60T0 2288 
Ti-1 
L2-1:60T0 2388 
R2-1 
B2-1:G60T0 2328 


3818 LPRINT CHR$(27);"A";CHRS (6) 

3820 FOR Y-ü TO 189 STEP 3:FOR H-@ TO 

35 STEP 5:P-SCt4BKY*K: ASCCHRS (8) AS (12 
8) =CHRS C02 : AG (21-05 

3839 A-USRUL539,P,ADR (AFI) :LPRINT CHRS 
(27) ;"L": CHRS (128) ; CHRS (82 AG; NEKT X: 
LPRINT :MEXT Y 

3848 RETURN 

3833 REM X ML ROUTINE USED IM PRINTER 

DUMP $ 

3108 RESTORE 3I118:FO0R J-i1536 TO 1635:R 
EAD A:POKE J,A: NEXT J 

3118 DATA 86,46,8,104,104, 133,204,184, 
133,203 ,104,133,206,194,133,285,169,8, 
133,269,169,128,133,287 

3112 DATA 169,3,133,212 

3128 DATA 162,08,134,708,188,08,6,177,28 
3,37,287 

3122 DATA 246,6,165,212,5,288, 133,288, 
6,212,6,212,232,224,6,288,232,164,282, 
165,288,18,145,285 

3124 DATA 2880,145,285,238,282,2:8,282, 
288,145,285,238,2092,214,234,234,234,21 
4,234,214,2314,78,207 

3130 DATA 144,191,210,2801,288,2,210,28 
4,165,2089,281,178,144,177,96 

3148 RETURN 

1938 REM * ML ROUTINE FOR GR, 8 CHARAC 
TERS * 

3999 REM * MODIFIED VERSION OF ANALOG 

2i P. 57 (OCT '84, TOM HUDSON) X 

4888 RESTORE 4818:DIM T$(257)3:FQR J-1 

TO 257:READ A:TSCJ, J2 CCHRS CA) NEXT JiT 
ADR-ADR(TS) : RETURN 

4010 DATA 216,184,184,104,133,2803,184, 


184,113,284,169,8,133,285,6,284, 38,285 i 


,6,284,18,285,6,284, 18 


4828 BATA 285,165,284,74,181,88,135,28 = 


6,155,285,101,82,1:1,287,65,284,38,285, 
6,284,18,285,155,284,24 
4038 DATA 181,286,1331,206,165,285,181, 


287,133,287,165,286,24,101, 283,133,286 


,;141,126,6,165,287,185,0,133 ¢ 


4875 DATA 125,6,145,286 

4888 DATA 218,288,165,288,2801,8,240,15 
,165,286,24,185,48,111,2806,144,227,2:180 
,287,288,223 

4838 DATA 144,158,218,125,6,218,17:,6, 
206,122,6,48,42,173,125,6,205,124,6,28 
§,22,169,8,141,125,6,24,173,126,6 

4188 DATA 1805,64,141,126,6,173,127,6,1 
@5,1,141,127,6,172,126,6,133,206,173,1 
27,6,133,287,24,144, 200,96 


roultiplica Hor 


1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 


1478 


DATA 
BATA 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DO IT AGAIN, SHARP, BRAVO 

ZS GO NN, HUMDINGER, HOW, GOOD 
SUPER, HOT DOG, FIRST RATE 
TOP-NOTCH, JIM-DANDY, GREAT 
SUPER FINE, TIP TOP,FAR OUT 
FANTASTIC, SUPER STAR, MINNER 
FIRST CLASS, BULLY FOR YOU 
RED HOT,EXCELLENT, HOME RUN 
THREE CHEERS,WELL DONE 
HURRAY , CHAMPION, CRACKAJACK 
CAPITAL JOB, BANG UP JOB 
BATA GOOD SHOW, MARVELOUS 

DATA GOOD AS GOLD 

REM .... Enter more messages here 


DATA END 


4848 DATA 287,141,127,6,104,133,213,10 BED 


4,133,212,104,104,141,122,6,206,122,6, 
184,184,141,124,6 


4858 DATA 169,0,141,125,6,141,123,6,16 Wi 


9,0,141,121,6,172,123,6,177,212,16,5,2 
86,121,6,41,127, 281, 32 

4868 DATA 176,5,24,185,64,16,7,201,26, 
176,3,56,233,32,133,204,167,6,133,285, 
133, 288,6,204, 38 


4878 DATA 205,6,204,38,205,6,204,38,28 : 


5,165,205,24,109,244,2,132, 285,164, 288 
,177,284,77,121,6,172 
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REM GE EEE EE EEE GEK 

REM DIF COVERSION FILE UTILITY 

REM BY DAVID FULLER 3/6/84 

REM ATARI ANONYMOUS OF RI 

REM USER'S GROUP 

REM 72 CRYSTAL DR 

REM WARWICK, RI 82883 

REM X3ODOCROOHCIECREONIOROEROGEOGOOCRCIOOCRGOE 

18 TRAP 1218:G05UB 1248:? "K":TTLS 

28 REM 

30 ? " by David Fuller" 

40 ? :? " How many Drives (1 or 2) '';; 

INPUT DRIVES 

58 IF DRIUESC1 OR DRIUES?2 THEN GOTO 4 
8 

68 POSITION 2,6:7 "1. Filemanager" 

780 ? "2, Other" 

88 ? :? "Enter Type of File '";:INPUT Å 

NSRS 

38 IF ANSRS "1" AND ANSRSO"2" THEN G 

0TO 68 

i88 IF ANSRS-"2" THEN TYP-2:G0T0 18808 

118 TYP-1 

i28 ? ;? " Insert Filemanager Data Dis 

kE 

138 ? " in Drive i and press 

BE: INPUT ANSRS 

140: 2% PRE STILLS: 2. 27.“ 
Disk":? LINS 

158 INFILS$-"D1:X,X":0PEN 11,6,8,INFILS 

160 INPUT -Si;FLNAHMS:IF FLNAMS(5,8)-"FR 

EE" THEN 138 

178 IF FLNAMSCII,13)-"DAT" THEN ? FLMA 

H$ (1,82 ;" "SFLNAMS (14,17) 

i88 GOTO 168 

198 CLOSE Hi:? LINS$:7? " Which File to 

Convert ":7 " "5; INPUT ANSRS:INFIL 
$z"p;":INFILS CI) -ANSRS 

288 INFILS(LENCINFILS) *1)-" ENT 

218 REM 

228 ? "R'";TTLS:POKE 752,8 

238 OPEN 111,4,8,INFIL$ 

240 INPUT Hi; NUMFLDOS 

258 INPUT Hi; FLONS 

268 MAKLEN-B 

278 FOR NI TO NUMFLDS:INPUT Hi;A:FNCN 

)-A:IF AP?MAKLEN THEN MAKLEN=A 

288 NEXT WN:A-8 

298 CLOSE If1:LE-LENCINFIL2) : INFILSCLE- 

3,LE}=—", IDK": OPEN #1,4,8,INFILS 

i8B INPUT Hi; A: MUMR-A-1 

318 FOR N-1 TO 4: INPUT H1;IDX1:NEXT N: 

INPUT Hi; IPHZ: INPUT Hi; IDEKI 

128 LINES-8:5CR5-1:5CRC1, 1) 71: KH-8 

i38 FOR Nzi TO NUMFLDS:FT(CN1-8 


CO Ww go GI a, Gd hog 


Files on the 


140 IF FN(N))188 AND ERR (IO THEN FN 
(N1-14:FTCN) Zi 

342 IF FN(NJ)185 THEN FN(N)-FN(N)-185: 
FT(NJ-8 

345 KK=KK+FN(N) 

358 X-INT(FN (M2/25) 

360 IF H-FN(N)/25 THEN LINES-LINES+H:6 
0TO 388 

378 LINES-LINES41 

388 IF LINES-28 THEM SCR(GCRS,2)-N-1:5 
CRS-SCRStL:LINES-0:SCR(GCRS, 1) -N: EK-FN 
(N):G0TO 198 | 

385 IF KK}255 THEN SCR(ISCRS,2)-N-1:5CR 
S-SCRSt1:LINES-B:SCR(CRS, 12 CN: XK-F N CN 
) 

198 NEXT M:5CRCSCRS, 2) -NUMFLDS 

488 7? :? "File ":CHRSCIA) ; INFILS CZ,LEN 
(INFILS)-4) ; CHRS (14) ;" has ";NUMR;" re 
cords" 


418 ? ,5CR5;" Screen(s)" 

428 ? ,"Field names" 

438 ? LIN$:6-8:B-5:C-Z 

448 FOR N-1 TO NUMFLDSX172 STEP 12:A=A+ 
1 

458 BoBti:IF Azii THEN C-28:B-6 

468 IF a-i@ THEN C-2 

478 POSITION C,B:7? Ar". '";FLDNSCN,Nt11 
} 

488 NEKT W:POSITION 2,16:7 LINS 

498 ? " Is this the right File (Y/N) 


";:INPLUT ANSRS 

588 IF ANSRSO"Y" THEN RUN 

518 ? ;? "How many records to convert 
">: INPUT CPY 

528 PASSIL:IF CPYSNUMR THEN Pá55-2 

538 START-1 

548 INFILS(LEMCINFILSJ-2)="DAT" 

558 REM 

568 7 :? " Enter name of output file" 
:7 " up to 8 characters ";:INPUT ANS 
RS 

578 OUTFILS="O": OUTFILS (22-5TRS CDRIVES 
I : QUTFILS (337 :" : OUTFILS (4) -ANSRS : OUTF 
IL$ {LEW COUTFILS) +13=". DIF" 

588 IF DRIUES-1 THEN GOTO 618 

598 7 ;? "Insert Desitnation disk " 
688 ? " in Drive 2 and press 
B";:INPUT ANSRS ` 

618 ? "R'";TTLS:? 120 
528 POSITION 5,8:? "Tota! Records: ";M 
UMR 

678 POSITION 5,18:? "Field: ";:POSITIO 
N 5,12:? "Record Hi"; 

648 QUTS-CHRS (34) 


Processing.. 
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658 OPEN f12,8,0,0UTFILS 

668 IF PASS=2 AND START)1 THEN GOTO 68 
a 

678 CLOSE Hi: OPEN 11,4,0,IHFILS:NOTE # 
1,5EC, BYTE 

688 IF STARTO1 THEM CPY-NUMR 

698 ? H2;"TABLE":7? 12;"0,1":7 #2;QUTS; 
QUTS:? HZ; "VECTORS":? H2;"8,"; STRS COPY 
-START41):2? 12:00T5;0UTS:7 #2; TUPLES" 
788 ? 12;"0,"; STRS CMIMFLD52 :? 12:0UT5; 
DUTS 

718 ? H2;"DATA":7 H2;"8,0":7 H2;0UT$:0 
UT$ 
738 
748 
OTO 
758 
2); 
768 
778 
788 
738 
888 


FOR 7-1 TO NUMFLDS 

IF TYP-2 THEM POSITION 131,18:? 7:6 
768 

POSITION 11,18:? FLDNS(IX12-11,Z91 


? 182;"-1,8"7:7 H2;"BOT" 

ST-ST4FNLCZ) 

FOR K-START TO CPY 

POSITION 15,12:? N;" w; 
&-8:5-1:5PACES-B 

818 INPUT Hi; IMPT$ 

815 IF ASCCINPTS(1,1))-255 AND SCR5-1 
THEN GOTO 818 

817 IF ASCCINPTS(CI,13))-255 AND SCRSJL 
THEM FOR Kizi TO SCRS-1:INPHT HL; INPTS 
:WEXT H1:G0TO 818 

828 IF Z{SCRC5,1) OR Z>SCR(5,2) THEM Å 
-AFLENCINPTS2:INPUT HI: INPTS:5-541:60T 
ü 820 

838 IF FTC(Z2-8 THEM GOSUB 1388:7 12;"- 
1,8'":? H2;0UTS; INPTS CST-Ah-FNCZ1 +1, SPAC 
E51 :QUTS 

848 IF FT(Z)-1 THEM ? 12;"8," :UAL CINPT 
$T-8-FNO2*1,5T-412:7 02;"U" 

858 IF 5QO5CRS THEN FÜR XM-541 TO SCRS 
INPUT H1;INPTS:NEKT KE 

878 NEXT X 

888 IF ZINUMFLDS5 THEN MOTE #1,5EC, BYTE 
838 POINT #1,5EC,BYTE 

988 NEXT Z 

218 ? 2;"-1,0":? HZ;"EQR": CLOSE HZ 
928 IF CPYSHUMR THEN GOTO 388 

938 7 :? :? “Bo you want to convert th 
e rest of the";? " records ";:IMPUT Ó 
NSRS:IF ANSRSCI,1) (yuyu THEN 388 

$48 POINT IH,SEC,BYTE 

3958 START-CPYt1:5T-8 

368 IF PRIUES-2 THEN ? "3 "Insert new 
destination disk '":? " and press 
(ho; INPUT ANSRS 

378 ? "RK";TTLS:60TO0 568 

988 POSITION 5,19:7 “ú GYR: END 


tet je 


338 REM 

1800 ? "h'":TTLS5:?2 fer Convert Other Fi 
le" 

1618 ? :7 "How many Fields in File ";: 
INPUT MUMFLDS 

1828 7 :? "How many Records in File ''; 
:INPHT NUMR:? 

1828 ? :? "How many records to convert 
"INPUT CPY:? 

i848 IF CPY(NUMR THEN PAS5=2 

1858 FOR Z-1 TO NUMFLDS 

i868 ? "Length Field H":2Z;:INPUT KEN 
Zz3-K 

1878 ? "Type of Field IHtring/[umber1 
"INPUT ANSRS:IF ANSRS(I,1) O"5" AND 
ANSRSCI,1) O"N" THEM ? "5 OR N'":60TO 1 
878 

i888 IF ANSRS(i.1)-"N" THEN FT(Z2-1:60 
TO 1168 

1898 FT(Z)-8 

1188 NEXT Z 

1185 A-@:FOR Nzi TO NUMFLDS:A-A*FNOOD : 

NEXT N:IF 42255 THEN 7 :? "Record leng 

th longer than":? " 255 rharacters":EN 

b 

1187 SCRS-1:5CR(CL,11-21:5CR(CLI, 22 -NUMFLD 

5 


11180 ? uK&"u;TTLS;:? än # Length Ty 
pe":? LINS 

11728 FOR Z-1 TO NUMFLDS:;? ú ",7;" €" 
Ii FN (22 ;" "s 


113@ IF FTCZ32-8 THEM ? "String" 

1148 IF FT(Z)-1 THEN 7 "Number" 

1158 NEXT Z:? LINS 

i168 ? :? "Are all entries Correct (Y/ 
B) "tr: INPUT ANSRS:IF ANSRSCLI,1) (yuyu T 
HEM GOTO 1888 

1178 ? "K":TTLS:7 :? “Enter name of 50 
urce File'":? "ú example: TEST.DAT 
INPUT AWSRS 

1188 INFILS-"D:":INFILS (33 =ANSRS 
1138 START-1 

1208 7 "K":TTLS:GOTO 568 

i218 ERR-PEEK(195) : ERLIM-PEEK (186) +256 
XPEEKC1872:2 :? " WATT" ERR; 
‘MSC; ERLIN 


fia e 
ER? 


1228 ? :? uú Press MIJAITLB to continu 
2 "TIINPUT ANSRS 
1730 RUM 


1248 REM 

1258 ? "&";:DIM TTLS C34) : TTLS-" BELTE 
RT TO DIF FILE UTILITY å 

1268 DIM ANSR$ (255), INFILS (17) ,FLDNS (2 
48) ,LINS (482 , CHGFLDS (122 , FNCTS (48) , FLN 
AMS (171 ,QUTFILS (17) , QUTS C1) 


1270 DIM CHG5(2550, INPTS (255) , K$ (12, 5T Së 
YPES (2) ,FL91$ (255) , FLB2$ (255) ,FNC202,F 1188 H-USR(BELL) :7 "K":POSITION 11,8:? 


T(283,5CRC18,2) , TEST? (2553) 

126407] 14456 NE BSL SE EE 
LL EE "i? LIMG:ATØ:B=5:C=2 

1238 RETURN 

1308 TESTS-INPTS(ST-A-FN CZ) +1,5T-&) :5P 
ACES-5T-À 

1318 FOR HI-LEN(TESTS) TO 1 STEP -i 
1128 IF TESTSCH1,H1) O" " THEN POP :RE 
TURN 

1325 SPACES-SPACES-1 

1338 NEXT H1:5PACES-SPACESt1:RETURN 








de gd ef å GE 

948 POKE KEY,MT:? "Choice-2"; :GET #i,M 
:? H-48 

958 IF MOT (M-43 OR M-58) THEN H-H5R(C 
BELLJ:? "please choose either FEET 
"u:2 ;GOSUB 1855:G0TO0 348 

968 ? :7 "How Many holes placed on gri 
4? ERAF? 

978 POKE KEY,MT:? "Holes -2';:GET #1,N 
:HOLES-N-48:7 HOLES 

388 IF HOLES(1 OR HOLES)6 THEN MW-USRIB 
FLL}:? "please choose from IEFETII":? :& 
OSUB 1855:6072 978 

999 ? :? NTP FOR K-8 TO 9:FOR YA 
TO 9:ACK,YI-@:NEMT Y:NEMT K 

1688 IF M-58 THEM i868 

1818 7 "Give Me the 'x,y' co-ordinates 
at the prompt "Hr then hit IRANTI: 
7 

1628 FOR CH5-1 TO HOLES 

1825 TRAP 1825 

1838 ? HS: ";:INPUT A,B:IF ACA, BIL 
THEN N-IUSRIELL) :? “points already ch 
osen!":? :605UB 1855:G0T0 18:18 

1848 IF Cadi OR A>8) OR (B(1 OR BIEN T 
HEN NW-HSRICBELL2:? “point(s? must be be 
tween [RRERF':? :GOSUB 1855:G070 1825 
1858 A(0,B)-1:NEXT CHS:TRAP 48888:GO0TO 
1838 

1855 FOR OLY=1 TO 388:NEXT DLY:? "fffli 

t; «RETURN 

1860 FOR PLC-1 TO HOLES 

1878 B-INT(RND(CB)X8) *1: C-INTCRND CR) X8) 

*1:IF ACB,C2-1 THEN 1878 

i888 ACB,CI-L:NEXT PLC 

1998 SCORE-8:CHR1-45: HOLE-@:P-8:5-8:EP 
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HETA GN: POSITION 28,8:? "hole 
(s1-)" HOLES 

1118 POSITION 11,3:7 AS:FOR K-1 TO 14 
STEP Z:POSITION 11,3*K:? BS:POSITION 1 
1,4+x:? CS:NEXT X 

1128 POSITION 11,18:7 BS:POSITION 11,1 
3:? BS 

1139 RESTORE 1148:FO0R CHR-1 TO 4:READ 
A, B:POSITION 4,B:? "-":NEMT CHR:A-18:B 
-2:081-8:B1-B:POSITION à,B:? "E" 

1148 DATA 18,2,28,2,10,28,28,28 

1158 GOTO 58 
1157 REM 
1154 REM. 
1155 REM 
1168 DIM 8(9,91,45(20),8$ (20) ,C$¢28) ,D 
$ (20) , MKRS (278) , EPSS CI) : BELL=1536 

1178 KEY-764:HMT-255:BELL-1516:POKE 16, 
112:POKE 53774,112 

1188 AST" =e 
1190 B$=" PEPE IT TETT 
1288 C$=" ee" 


1218 DSL b VV — ii 

1228 MKRS="abcefghi jkImnop" 

1218 RESTORE 1248:FOR Z-@ TO Z9:READ B 
YTE:POKE BELL+Z,BYTE:MEHT Z 

i248 DATA 184,163,8,141,8,7218,162,48,1 
41,8,218,168,176,162,255 

1758 DATA 142,180,212,282,288,2580,136,1 
48,1,218,122,1680,208,248,36 

1268 OPEN #6,4,0,"S5:":0PEN 11,4,8,"K;" 
:POKE 718,8:POKE 752,1:POKE 7893,132:P0 
KE 16,117:POKE 53774,112 

1278 ? "K":POSITION 14,10:7 dk BLACKHOL 
GF rop A=-14 TO 14:POKE 709,2086-485 CA 
J :FOR DLY-1 TO L@:NEXT DLY:NEKT Å 

1288 ? "K":POSITION 18,18:? "by":POSIT 
ION i3,12:7 "-ED SCHEMBRI-" 

i238 FOR A--14 TO 14:POKE 783,286-AB5(C 
A):FüÜR DLY-i TO 18:NEXT BLY:WEXT or? " 
&":FOR DLY-1 TO I8:NEHT DLY:GOTO 928 


XX initialize SR 





BUGBUSTERS Speaking of disks, some neu ones are 


j d at the usual rices. 
Here are the first people who have agreed to help others with their Going Uo UP"PBSOy SPAN P 


computing problems. ACE modem disk has several specialized 
programs, including a Atari 1030 Modem program 

Greg Menke allouing dounloading and 2 versions of KERMIT, 
22500 Old Hundred Road written in Action! and compilied and debuged 
Barnesville, MD 20838 by our friends at MicroBits -- one for their 
Bp moly Language Modem and one for those using the 850 
Ralph Walden interface. Stan Ocker's complete XYPlot and 
1821 Jefferson XYGraph programs as described in this issue 
Eugene, Or. 97402 take up an entire disk and will be available. 
(503) 344-8142 We also have a new "freeware" program, a Word 
OG ed Processor written in BASIC by Larry Farmer, 
available for the asking if your order has a 

Jiva spare disk side to put it on. Other 
(503) 747-9014 "freeware" programs are The Financial DataBase 
New users by Richard  Kalagher and RAM test a 
AA professional level program donated to ACE by 


MicroBits (225 3rd AVE. SW, Albany, OR 97321). 
Please do not call any of these people after 10PM, local time. 

Robin Sherer, uho used to be Santa Cruz 
Educational Softuare, has recently moved to 
Eugene and formed a new company, Computers 
Made Simple! (1974 Buck St., Eugene, OR 97405 
(503)344-2767). Robin was one of the first 
people to write about the Atari, and started 
his Tricky Tutorials teaching many Atari 
owners to program. These consist of a disk or 
tape of programs, as well as a well written 
manual teaching various aspects of how your 
Atari works. Subjects include such things as 
Display Lists, Scrolling, Page Flipping 
(discovered and developed by Robin, I 
believe), PM graphics, etc. When they first 
came out they cost $30 and up, and were well 
worth it. Now, you can get them for only 
$9.95 each direct from Robin. He has many 
other utilities and programs for very low 
prices. And for those who have had problems 
getting his wonderful new book, The Master 
Memory Map, Robin will send it to you for the 
list price ($16) and he will pay the shipping. 
He also has his original 40 page version 
available to ACE members for only $4. 





News and Reviews 
by Mike Dunn, Co-Editor 


By now, most of you must know about all 
the exciting new computers from Atari; if not, 
you can read about them in this issue. We are 
all looking foward to seeing and playing with 
these fantastic machines, and will report the 


ult as soon as ossible. Our local 
ER ° : s Another bargain this month is from LJK 
dealer, Computer Palace is probably the i i 

pie i (7852 Rig Bend Blvd., St Louis, MO 63119). 
largest remaining Atari dealer and should be oif ean apad Bh ner yl Wal op tun Sets BG vox 1 
one of the first to get them. Their new ge cR S PEN sen AUS NODE "i 


spelling checker, Spell Perfect and Data 


i d if nt to et one of 
catalog is out. and it YOM UB 3 Perfect for $99.95 for all three! 


the first machines, you might contact them 
(2180 W. 11th Avee, Eugene, OR 97402, 
1-800-452-8013). ACE will keep you posted, 
but, I'm afraid to announce, we need to 
increase fees because of increased postal 
expenses. 


Ralph Ualden's implementation of the C 
programming language, called  "ACE-C", is 
available from the library. Complete 
documentation is on the disk. If you want to 
learn a new language, this is an excellent way 
to do it. You will need a book which explains 
hou to program E in general. The 
documentation suggests a good one. 


Starting March 15, 1985, ACE will be $14 
a year. If you renew early, you can still do 
so for $12 if ue get it before that date. To 
know when you have to renew, the number code 
on the mailing label is the month and year you 
last renewed, so your subscription is up the 
month before, eg. 2P4 means your renewal date 


is January, 1985. To encourage early 
renewals, so we can pay some bills, we have a 
special offer until March 15. An early 


renewal, plus any Disk or Tape in the library 
for only $20; $25 for a double sided disk!! 13 





XYENTRY UPDATE 


| seem to have made an oversight in writing 'XYENTRY'. | filled it 
with all sorts of fancy things; display list interrupts, PM graphics and 
even a timer program running in the background, forgetting | was plan- 
ning to load in other programs from this one. So all of the fancy things 
have to be disconnected. | suppose it can be done but it's far easier to 
not have used the routines in the first place. 

If you want to use 'XYENTRY' as given in the last issue, you can. 
Just create your file and then hit system reset and load 'XYPLOT' to 
graph it. If however you want to run 'XYPLOT' automatically from 
‘XYENTRY’ the following changes are necessary: 

(1) in line 20 use underscores instead of blanks in NBLK$ 

(2) enter line: 25 POKE 708,34:POKE 709,178:POKE 710,184:POKE 
712,10:DLIST = PEEK(560) + 256*PEEK(561):POKE DLIST + 3,70:POKE 
DLIST +6,6 

(3) get rid of the GOSUB 3000 in line 30 and DELETE all lines above 
2000 

(4) replace the POKE 694,0 in line 310 with POS. 
COL-1,ROW:PRINT'""; and get rid of the POKE 694,0 in line 410 

(5) line 420 should read: IF K 2 155 THEN 500 

(6) add OR K= 46 to the others in line 360 

(7) delete lines 899 through 920 and any references to these lines 
(there are quite a few) 

(8) add a semicolon to the end of the print statement in line 1082 

(9) copy lines 80-84 and 742 from ‘XYPLOT’ 

(10) line 170 should read: ?CHR$(125):POS. 10,10:2"LOADING 
XYPLOT':RUN'D:XYPLOT" 

You should of course have 'XYPLOT' on your disk. These and a few 
minor cosmetic changes should allow you to run either program from 
the other. The slow initialization time of ‘XYPLOT’ can be helped by 
putting the ML program in strings. The result (l've done it) is all but 
unreadable in print though so l've provided the DATA statement 
listing for printing in the newsletter. 

— Stan Ockers 


XYGRAF PART II 


XYPLOT' is the graph drawing portion of ‘XYGRAF’. It takes files of 
X-Y data from disk and converts them to X-Y graphs on the screen. 
Provision has been included for dumping the screen to a Gemini 10X 
print (an Epson MX80 with Graftrax should work as well). You may plot 
more than one file on the same screen. Any points falling outside the 
limits determined for the initial plot will be clipped. Points may be 
plotted individually or a line connecting point-to-point may be 
selected. 

When the program is initialized, a set of data from disk may be read 
in automatically. You will be presented with a number of options. If 
you wish a different .DAT file select number (1). Option (3) will list all 
.DAT files on the disk. Selection (2) will plot a graph and provide axes. 
Scaling will be done using the minimum and maximum values of X 
and Y as limits. Any previous graph will be cleared when using this op- 
tion. 

You may wish to choose your own limits, provide axes titles and 
choose point or line plotting. If so, select option (4) before using (2). If 
you wish to draw a line plot as well as marking individual data points, 
you can use option (2) for one, (say line), go to the choices menu (4) 
and switch to the other. When you return to the main menu, option (5) 
can be used to add the points. Option (5) can also be used after 
loading additional files from disk to give multiple curves on one graph. 
Remember, the limits will be those determined when first using op- 
tion (2) and any points outside these limits won't appear. 

Any time you want to display the graphics screen use option (6). It 
will be displayed until another key (I use the spacebar) is pressed. 
Selection (7) prints the screen to a Gemini 10X printer. The pixels are 
tripled up horizontally and doubled up vertically for 960 X 384 dots. 
This takes a little while so be patient. You can clear the graphics 
screen using option (8). You may wish to do this if you want to plot a 
curve without axes. If your data needs to be changed, option (9) will 
automatically load 'XYENTRY'. 

Choice (4) of the main menu brings up another menu providing a 
number of options. The first lists the current values of the limits of X 
and Y. If you want to change any of these, choose (1) and you will be 
presented with yet another menu. As you pick limits try and make the 
difference between them multiples of 10. This will give you the best 
scale values. If Y values fall between 1 and 1000 they will be listed 
normally on the graph, otherwise you will get numbers between 1 and 
10 expressed to cenths with an exponent in the lower left corner. X 
scale values work much the same except there is a little more room 
so you get numbers between 1 and 10000 or decimal values to hun- 
dredths. Negative numbers are printed in inverse. The spacebar will 
return you to the choices menu and used again will return you to the 
main menu. 


Titles may be placed on the axes or across the top (graph title) us- 
ing choices 2,3 or 4. The titles will be approximately centered on the 
axes. You may choose either a full grid or just tic marks by toggling 
with choice 5. The final choice (6) determines if just points or a line 
between points will be plotted. 

| haven't had time to extensively test this program so be sure to let 
me know of any bugs or suggestions for improvement. 

— Stan Ockers 
R.R. #4, Box 209 
Lockport, IL 60441 





NOTES: 


The material from Stan Ockers is unusually voluminous this month. 
We are able to present only part of his listings in the newsletter. If you 
want the whole diskfull of programs, you may obtain it from the club 
Librarian. 

We omitted a second listing to use with the Computer Appliance In- 
terface from last month. This listing is an automatic telephone dialer. 
Look for it in this issue. 





SERPENT'S STAR 


The Serpent's Star by Broderbund is a graphics adventure set in 
Tibet. You are Mac Steele, world famous archaeologist and treasure 
seeker. Your quest is for the Serpent's Star, a legendary gem which is 
supposed to grant immortality to its owner. The key to finding the 
gem lies in thirteen ancient scrolls. 

Ten of these scrolls lie in a museum in Tibet, the rest are waiting for 
you in the wilderness. After translating the scrolls to find the resting 
place of the gem, you must journey to Kara-Koram, a city existing for 
only one day a year. In your way lie kleptomaniactic monks, blood- 
thirsty wolves, and a fellow Westerner who cannot get drunk (no mat- 
ter how many drinks you buy him). Ave you man enough to handle 
these challenges? 

Now for the nitty-gritty. The Serpent's Star is an adventure using 
typed commands, with an added graphics package designed to aid in 
the adventure, as well as making the whole lot more enjoyable and 
less the eyesore straight text adventures can be. The program in- 
cludes an on/off toggle for sound, although | didn't find much sound 
anyway. The road graphics are o.k., pretty much the same scenes no 
matter which road you are on. There are some outstanding graphics in 
other areas, w:iic*. more than balance out the not-so-good portions. 

The adventure itself is good, but many adventures are very similar, 
so you play one and you've played 90% of them all. The vocabulary 
the computer uses is the standard package, with the usual 
"speciality" words applying only to this adventure thrown in (i.e. Bud- 
dha, scrolls). 

Overall, | call this adventure o.k. to good. | find nothing outstanding 
to just rip me away from something else, but it is a nice change from 
the usual routine. 

— Aaron Ness 





14 


MULTIPLICATION 
FLASHO 


. Every year grade school children across the land renew their efforts 

to master the multiplication facts. For a few it is easy, but for most it 
ranges from hard to down right nasty. My youngest daughter was 
quickly convinced it was simply impossible. Flashcards helped some 
but it was still a bit of a teeth gritting experience for all involved. | 
decided to try to write a flash card program to be fun, friendly, and not 
too childish for a grownup fourth grader. The result was FLASHO. Its 
immediate success was a bit of a surprise to everyone. However, no 
one was more surprised and pleased than my daughter, the new 
record holder for the fourth grade multiplication speed test. 

As you probablv recall, a traditional flashcard drill works something 
line this: First the teacher displays a card giving a multiplication pro- 
blem, say 6x7 = ?. You are given a few seconds to come up with an 
answer (speed is important since it doesn't help much if you have to 
do the problem on your fingers). If your answer is correct then 
everyone is happy. However, if the you are wrong, then (a) The teacher 
gives the correct answer, trying not to groan because this is the 
seventeenth wrong answer so far. (b) You feel increasingly uncomfor- 
table because your lack of skill is so openly exposed. Isn't this fun! 
Now you remember why you always enjoyed this little exercise so 
much. 

Now, | am not going to try to convince you FLASHO is going to 
make learning the multiplication facts more fun than playing Star 
Raiders. However, FLASHO does remove some of the unpleasant 
aspects of the process, and it is certainly less dull. The program does 
not get irritated or impatient no matter how many mistakes you make. 
Also, FLASHO always remembers to give you a pat on the back when 
you are doing well. 

Each FLASHO “game” consists of 48 problems. The problems are 
displayed one at a time and a joystick is used to select the correct 
answer. The name FLASHO, comes from the flashing “O” that is posi- 
tioned by the joystick to select the answer. The object of the “game” 
is to see if you can beat your previous high score. This competing 
against yourself is fundamental to this type of learning approach. 
With just a little effort you can get a better score each time you play. 
This is the technique coin-op arcade games use so successfully to 
keep the quarters rolling in. Here this technique can work to keep the 
student going a bit longer. 

The object of FLASHO as a teaching aid is to assist the student to 
memorize the muitiplication facts. For this reason, quick correct 
answers get more points than slow correct answers. Also, no points 
are deducted for incorrect answers (remember, the program does not 
get irritated with a slower learner). You can get a higher score by go- 
ing quickly and missing a few problems than by going slowly and get- 
ting them all right. This emphasis on quick recall is important since it 
forces you to memorize the answers to get the highest scores. Coun- 
ting on your fingers literally does not count for much with FLASHO. 


USING THE PROGRAM 

When you first run FLASHO you are asked to enter the highest 
multipliers to are to be used in the drill. For example if an 8 is entered, 
the problems will range from 2x2 to 8x8. Each game consists of 48 
problems selected at random. When a problem is presented, use the 
joystick to point to the answer, and use the trigger to confirm your 
selection. It usually takes a couple of games to get the feel of the 
stick and then it becomes second nature. If your the answer is correct 
you get a "yes" beep and it's on to the next problem. If the answer is 
wrong, you get a “no” tone and the correct answer is displayed. After 
each answer the score is updated and the time to respond to the last 
problem is displayed. 

Since the program emphasizes speed, you will get a rest break after 
each 12 problems. Pressing the START key starts the next set of 12 
problems. At the end of four sets you can press START to begin a new 
game or OPTION to end. When you end the program, a table is 
displayed showing the number of correct and incorrect answers for 
each problem. This table can be helpful to both the teacher and stu- 
dent since it clearly shows the areas that need special work. 

HOW THE PROGRAM WORKS 

FLASHO is 100 percent BASIC and uses graphics mode 1. The 
following "take-apart" discusses the various sections of the program 
in the order in which they are run. 
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Lines 710-790: Introduction and Prompt for user to enter highest 
multipliers to be used. 

800-930: Draws the static part of the display and initializes program 
variables. 

1250-1470: Stores the pat-on-the-back messages in S$ for easier ac- 
cess. Additional messages can be added at line 1460. S$ has space 
for up to 100 14-character messages. The last message must be 
“END”. 

940-1130: Starts a new game if the START key is pressed (see line 
150) or ends the program if the OPTION key is pressed. When the pro- 
gram is ended, the right/wrong counters are displayed by lines 
1140-1240. 

150-260: Starts a set of 12 problems. Problems are selected at ran- 
dom. A special check is made to try to avoid repeated a problem if it 
has already been answered correctly. 

270-430: Joystick handling routine. Joystick 1 is used to position a 
flashing “O” to desired answer. 

440-490: Response to incorrect answer. The correct answer is 
displayed for several seconds before going on to the next problem. 

500-560: Response to correct answer. 

570-650: Display current score and time required to answer last pro- 
blem. 

660-700: Display a pat-on-the-back message after four correct 
answers in a row. 

NOTE FOR XL COMPUTER USERS 

If you are using an Atari XL computer, you need to make a change 
on line 610. Change the value 4.65 to 5.39. This change compensates 
for fact that FLASHO runs about 15 percent faster on an XL computer 
than it does on the earlier models. 

— J. A. Carr 


BLACKHOLE 


Converting popular board games to the ATARI, has become a 
favorite pastime of mine. One such game, which has become a hit 
among my friends and I, is called Blackhole. It's a take-off of a game 
called Blackbox, | saw some time ago. 

The object of the game, is to find 1-6 holes, hidden in an 8x8 grid. 
This is done by injecting light rays into the grid, analyzing the results, 
then logically pinpointing the locations of the hidden holes. 

The path the ray will make through the grid is simple. A ray will 
either be 'A' - absorbed, 'R' - reflected, or 'a.a b.b etc.' - refracted 
(remember your high school physics?). 

Absorbed means hitting a blackhole dead-on causing the ray to be 
swallowed up. Refracted means the ray has come within 1 square to 
the left or right of its path, causing it to refract 90 degrees away from 
the hole, and resume movement until it exits the grid or meets another 
hole (confused yet?). Reflected means the ray has come out the same 
place it was shot in. 

Movement around the perimeter and through the grid is done by the 
4 arrow keys, (without the ctrl key). The ESCAPE key toggles you in 
and out of the game grid. The RETURN key will shoot a ray into the 
grid, if you are on the perimeter, or place/erace a dot, to indicate to the 
computer where you think the hole is, if you are inside the grid. Final- 
ly, pressing the SPACE BAR, in or out of the grid, will give you a pro- 
mpt asking if you want to see the final outcome. (choose 'Y' after 
you've marked all the holes in the grid, or if you give up). Hitting any 
other key or wrong input during the game, will produce a bell like tone. 

A point is added to your score for every ray result around the 
perimeter, and 3 for every hole you placed incorrectly. When the com- 
puter shows the results, there will either be a; (i) dot - correct place- 
ment (yipee!), (ii) diamond - a hole location you didn't choose, or (iii) 
cross - you chose it but the hole wasn't there. The lower your overall 
score the better. 

| realize the game seems complicated but it isn't. The best way to 
learn it, is to select to place your own holes, at game start, then wat- 
ching the way the rays react to the known hole locations. Start with 1 
then build up until you think you understand it. Then let the computer 
choose the locations up to a limit of an insane 6. There are a few other 
little nuances in the game you'll discover only by playing it. Hope you 
like it ... it will surely grow on you!! 

. — ED SCHEMBRI 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 
Vice Pres— Larry Gold, 1927 McLean Blvd. Eugene, OR 97405 
503-686-1490 
Secretary — Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 
Librarian — Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
503— 689-7106. 
Editors— 
Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 / 503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503 / 484-9925 
E.R.A.C.E. (Education SIG Editor) — 
Ali Erickson, 295 Foxtail Dr., Eugene, OR 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary — 
Robert Browning, 90 W. Myoak, Eugene, OR 97404 / 503-689-1513 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line" 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


eating & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8" double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov '82 issue 
for complete details. 


